= 2) {
var lang = (typeof TFC.LANG === 'string' && TFC.LANG) ? TFC.LANG : 'ja';
var btnLblExp = (lang === 'en') ? 'Expand all' : '全て展開';
var btnLblCls = (lang === 'en') ? 'Collapse all' : '全て閉じる';
body = '' +
'' +
'' +
'
' + body;
}
return '\n' +
'' + titleHtml + '
\n' +
'\n' + body + '\n
\n' +
' \n';
};
// よくある「タブセクション = ラベル + バッジ + body」パターンの便利ラッパ。
// labelKey: TFC.t() のキー (例: 'sec.funcDesc')
// bodyHtml: セクション本文 (空文字列なら off 扱い)
// count: バッジ件数 (省略時は body が空でなければ 1 扱い)
// lang: 'ja' | 'en'
// body が空なら tab-off + 件数 0、そうでなければ tab-on + 件数 N を表示する。
TFC.tabSection = function (labelKey, bodyHtml, count, lang) {
var hasBody = bodyHtml != null && String(bodyHtml).length > 0;
var n = (count == null) ? (hasBody ? 1 : 0) : count;
var on = n > 0 && hasBody;
var summary = TFC.t(labelKey, lang) + ' ' + TFC.tabBadge(on, n, lang);
return TFC.htmlSection(summary, hasBody ? bodyHtml : '', on ? 'tab-on' : 'tab-off');
};
/* 初期表示: 全設定タブは func-card (1レベル目) のみ open、内側はすべて close
全展開・全閉じ・カードのみ・設定ありのみ等の操作は controls ボタンから行う
★ 注意: 「全閉じ」は FuncDoc.html (details.func-card がある画面) でしか望ましくない。
Domains.html / DomainMatrix.html / er-diagram.html 等の他ページでは details
の構造が違うので、 func-card が無い場合はこのロジック自体をスキップする。 */
TFC.JS_TAIL =
"document.addEventListener('DOMContentLoaded',function(){" +
// FuncDoc.html (= details.func-card を持つ) でのみ全閉じ + カード展開を行う。
// 他ページでは details の初期状態を尊重 (HTML の open 属性に従う)
"if(document.querySelector('details.func-card')){" +
"document.querySelectorAll('details').forEach(function(d){d.open=false;});" +
"document.querySelectorAll('details.func-card,details.shared-card').forEach(function(d){d.open=true;});" +
"}" +
// コードブック sidebar クリック → 対象コードブロックへスムーズスクロール + フラッシュ表示
"document.querySelectorAll('.tfc-cb-side a').forEach(function(a){" +
"a.addEventListener('click',function(ev){" +
"var hr=a.getAttribute('href')||'';" +
"if(hr.charAt(0)!=='#')return;" +
"var tgt=document.getElementById(hr.substring(1));" +
"if(!tgt)return;" +
"ev.preventDefault();" +
"document.querySelectorAll('.tfc-cb-side a.tfc-cb-active').forEach(function(x){x.classList.remove('tfc-cb-active');});" +
"a.classList.add('tfc-cb-active');" +
"document.querySelectorAll('.tfc-fn-block.tfc-fn-target').forEach(function(x){x.classList.remove('tfc-fn-target');});" +
"tgt.classList.add('tfc-fn-target');" +
"tgt.scrollIntoView({behavior:'smooth',block:'start'});" +
"});" +
"});" +
"});" +
"function tfcAll(open){document.querySelectorAll('details').forEach(function(d){d.open=open;});}" +
"function tfcCardOnly(){document.querySelectorAll('details.func-card,details.shared-card').forEach(function(d){d.open=true;});" +
"document.querySelectorAll('details.func-card details, details.shared-card details').forEach(function(d){d.open=false;});}" +
"function tfcOnOnly(){document.querySelectorAll('details').forEach(function(d){d.open=true;});" +
"document.querySelectorAll('details.tab-off').forEach(function(d){d.open=false;});}";
// 仕様書 §8 の色パレットを採用
TFC.CSS = "body{font-family:'Segoe UI',Meiryo,sans-serif;background:#f1f5f9;color:#1e293b;margin:0;padding:0 12px 32px;line-height:1.55}" +
"h1{font-size:1.5em;margin:18px 0 8px}" +
".meta{font-size:.9em;color:#475569;margin-bottom:6px}" +
".legend{font-size:.85em;color:#475569;margin:6px 0}" +
".controls{position:sticky;top:0;background:#fff;padding:8px;border-bottom:1px solid #cbd5e1;z-index:10;margin-bottom:12px}" +
".controls button{margin-right:6px;padding:4px 10px;font-size:.9em;cursor:pointer;border:1px solid #94a3b8;background:#f8fafc;border-radius:3px}" +
".controls button:hover{background:#e2e8f0}" +
"details.func-card{border:2px solid #cbd5e1;border-radius:6px;background:#fff;margin:14px 0;padding:6px 10px}" +
"details.func-card[open]{border-color:#7dd3fc}" +
"details.func-card>summary{font-weight:bold;font-size:1.1em;cursor:pointer;padding:4px 0}" +
"details.shared-card{border:2px solid #f59e0b;border-radius:6px;background:#fef3c7;margin:14px 0;padding:6px 10px}" +
"details.block-card{border:1px solid #7dd3fc;border-radius:4px;margin:8px 0;padding:4px 8px;background:#f0f9ff}" +
"details.screen-section{border:1px solid #e2e8f0;border-radius:3px;margin:6px 0;padding:4px 8px;background:#f8fafc}" +
"details.screen-section.tab-on{border-color:#86efac;background:#f0fdf4}" +
"details.screen-section.tab-off{border-color:#e2e8f0;background:#f8fafc;opacity:.85}" +
"details>summary{cursor:pointer;outline:none}" +
".tab-status{font-size:.85em;margin-left:8px}" +
".tab-status-on{color:#15803d}" +
".tab-status-off{color:#94a3b8}" +
".section-body{padding:6px 0 6px 12px}" +
"table.kv{border-collapse:collapse;margin:4px 0;width:auto}" +
"table.kv th,table.kv td{border:1px solid #cbd5e1;padding:3px 8px;font-size:.92em;text-align:left;vertical-align:top}" +
"table.kv th{background:#f1f5f9;color:#475569;white-space:nowrap;min-width:160px}" +
"table.kv td.val{background:#fff}" +
"table.kv td.kv-code{background:#f8fafc;color:#64748b;font-size:.78em;width:1%;white-space:nowrap;font-family:Consolas,monospace}" +
"table.kv-compact{table-layout:auto;width:auto}" +
"table.kv-compact th{min-width:0;padding:2px 6px;white-space:nowrap;font-size:.85em}" +
"table.kv-compact td{padding:2px 6px;font-size:.88em;white-space:nowrap;max-width:280px;overflow:hidden;text-overflow:ellipsis}" +
"table.kv-compact td:hover{overflow:visible;white-space:normal;background:#fef3c7}" +
"code,pre{font-family:Consolas,'Courier New',monospace}" +
"pre.sql-code,pre.js-code{background:#0f172a;color:#a5f3fc;padding:8px 10px;border-radius:4px;overflow:auto;font-size:.85em;margin:4px 0;white-space:pre-wrap;word-break:break-word}" +
"details.tfc-code-box{display:block;margin:4px 0;border-left:3px solid #38bdf8;padding-left:8px;background:#f0f9ff}" +
"details.tfc-code-box>summary{cursor:pointer;color:#0369a1;font-weight:bold;padding:4px 6px;list-style:none}" +
"details.tfc-code-box>summary::-webkit-details-marker{display:none}" +
"details.tfc-code-box>summary::before{content:'\\25B8';display:inline-block;margin-right:6px;transition:transform .15s}" +
"details.tfc-code-box[open]>summary::before{transform:rotate(90deg)}" +
"details.tfc-code-box .tfc-code-len{color:#64748b;font-weight:normal;font-size:.85em}" +
".kbn{display:inline-block;background:#fef3c7;color:#b45309;padding:1px 6px;border-radius:3px;font-size:.82em;font-family:Consolas,monospace}";
// ============================================================
// PG 由来 SELECT 結果の キー大文字化 (DB 横断対応)
// PostgreSQL は bare alias を lowercase 化するため、 row['FUNC_ID'] (uppercase 直書き)
// ではアクセスできない。 全 row を JS object に変換 + キーを uppercase 化して、
// コード本体は DB 種別を意識せず row['FUNC_ID'] で書けるようにする。
// - TALON.select() / TALON.getBlockData_List() 等の戻り値はすべて selectU 経由が望ましい
// - 副作用なしの純粋な正規化 (元の Java Map は変更しない)
// ============================================================
TFC.normalizeRows = function (rows) {
if (rows == null) return rows;
var n = (typeof rows.size === 'function') ? rows.size() : rows.length;
for (var ni = 0; ni < n; ni++) {
var src = rows[ni];
if (src == null) continue;
if (typeof src.entrySet !== 'function') continue; // 既に純 JS object 化済
var dst = {};
var iter = src.entrySet().iterator();
while (iter.hasNext()) {
var e = iter.next();
dst[String(e.getKey()).toUpperCase()] = e.getValue();
}
if (typeof rows.set === 'function') rows.set(ni, dst);
}
return rows;
};
// TFC.selectU(sql): TALON.select() のラッパで返り値を normalize する。
// DB 横断の SELECT は必ずこれを使うこと (PG / SQL Server / MySQL / Oracle 共通)
// ※ ユーザー入力を含む WHERE 句がある場合は TFC.selectPS (PreparedStatement) を使うこと。
TFC.selectU = function (sql) { return TFC.normalizeRows(TALON.select(sql)); };
// TFC.selectUByConn(conn, sql): 任意の DB 接続 (= 複数DB接続の外部 DB) で SELECT。
// conn は TALON.getOtherDBConn("N") (N=1..15) で取得する TalonConfig。
// 主 TALON DB の場合は TFC.selectU でも TALON.getDbConfig() でも可。
// manual §5.20.10 / API 4.8.3 準拠。
//
// Nashorn ではグローバル TalonDbUtil が利用可能 (TALON が import 済)。
// 存在判定は typeof で行う (Java.type 解決の package パスに依存しない)。
TFC.selectUByConn = function (conn, sql) {
if (!conn) return TFC.selectU(sql);
if (typeof TalonDbUtil === 'undefined') {
// フォールバック: TalonDbUtil グローバルが見つからない → 主 DB の TALON.select で代替
try { TALON.getLogger().writeWarn('[TFC] selectUByConn: TalonDbUtil グローバル未定義 → 主 DB で代替'); } catch (ig) {}
return TFC.selectU(sql);
}
return TFC.normalizeRows(TalonDbUtil.select(conn, sql));
};
// ============================================================
// SQL インジェクション対策 (PreparedStatement パターン)
// セキュア設定マニュアル「6.1. ＳＱＬインジェクション対応」の
// V6.2.18 以前バージョン向け実装に準拠。
// ユーザー入力 (検索条件・チェック行の値・URL パラメータ等) を SQL に
// 組み込む箇所では 必ず TFC.selectPS / TFC.updatePS を使うこと。
//
// 使い方:
// var rows = TFC.selectPS(
// "SELECT FUNC_ID, FUNC_NM FROM TLN_M_GENERAL_FUNC WHERE FUNC_ID = ?",
// [funcId] // ← JS Array で OK
// );
// // rows: [{FUNC_ID: 'TLN_FUNC_DOC', FUNC_NM: '...'}, ...] (キーは uppercase 正規化済)
//
// var cnt = TFC.updatePS(
// "UPDATE tln_m_general_item SET col_name = ? WHERE func_id = ? AND col_name = ?",
// [lowerNm, funcId, upperNm]
// );
// ============================================================
var _HashMap = Java.type('java.util.HashMap');
// 内部: Connection 取得 (トランザクション未開始時は beginTransaction)
function _getConn(dbConfig) {
try {
return dbConfig.getDataSource().getConnection();
} catch (e) {
try { TalonDbUtil.beginTransaction(dbConfig); }
catch (e2) { /* 既に begin 済 */ }
return dbConfig.getDataSource().getConnection();
}
}
// 内部: PreparedStatement にパラメータを bind (setObject で型自動判別)
function _bindParams(stmt, params) {
if (params == null) return;
var n = (typeof params.length === 'function') ? params.length() :
(typeof params.length === 'number' ? params.length : params.size());
for (var i = 0; i < n; i++) {
var v = (typeof params.get === 'function') ? params.get(i) : params[i];
stmt.setObject(i + 1, v);
}
}
// 内部: ResultSet を [{COL_NAME: value, ...}, ...] 形式 (uppercase キー) で読み出し
function _readResultSet(rs) {
var md = rs.getMetaData();
var nc = md.getColumnCount();
var result = [];
while (rs.next()) {
var row = {};
for (var c = 1; c <= nc; c++) {
// getColumnLabel は AS 句の alias も取れる。 PG では lowercase で返るが
// uppercase に正規化して DB 横断対応とする。
row[String(md.getColumnLabel(c)).toUpperCase()] = rs.getObject(c);
}
result.push(row);
}
// selectU (Java List) との互換性のため size() メソッドを生やす
result.size = function () { return this.length; };
return result;
}
/**
* SELECT を PreparedStatement で実行 (SQL インジェクション安全).
* @param sql プレースホルダ「?」を含む SELECT 文
* @param params JS Array または java.util.ArrayList (省略可)
* @returns Array<{COL_NAME: value, ...}> (uppercase キー)
*/
TFC.selectPS = function (sql, params) {
var dbConfig = TALON.getDbConfig();
var conn = _getConn(dbConfig);
var stmt = null, rs = null;
try {
stmt = conn.prepareStatement(sql);
_bindParams(stmt, params);
rs = stmt.executeQuery();
return _readResultSet(rs);
} finally {
if (rs != null) { try { rs.close(); } catch (e) {} }
if (stmt != null) { try { stmt.close(); } catch (e) {} }
// Connection は TALON のトランザクション管理対象のため close しない
}
};
/**
* INSERT/UPDATE/DELETE を PreparedStatement で実行.
* @param sql プレースホルダ「?」を含む SQL
* @param params JS Array または java.util.ArrayList (省略可)
* @returns 影響行数 (int)
*/
TFC.updatePS = function (sql, params) {
var dbConfig = TALON.getDbConfig();
var conn = _getConn(dbConfig);
var stmt = null;
try {
stmt = conn.prepareStatement(sql);
_bindParams(stmt, params);
return stmt.executeUpdate();
} finally {
if (stmt != null) { try { stmt.close(); } catch (e) {} }
// Connection は閉じない (上記と同じ理由)
}
};
// ============================================================
// DB タイプ判定 (実行時) — JDBC DatabaseMetaData ベース
// 返り値: 'oracle' | 'postgres' | 'mysql' | 'sqlserver' | 'db2'
// | 'cdata' | 'cdata-' (例: 'cdata-salesforce')
// | 'unknown'
//
// 実装は Connection.getMetaData() の URL + productName を見て分類する:
// 1. URL prefix 優先 (確実) jdbc:oracle: / jdbc:postgresql: / jdbc:mysql:
// jdbc:mariadb: / jdbc:sqlserver: / jdbc:microsoft:sqlserver:
// jdbc:db2: / jdbc:cdata::
// 2. URL から取れない場合: productName のキーワードでマッチ
// 'Oracle...' → oracle, 'PostgreSQL...' → postgres, 'DB2/...' → db2,
// 'MySQL...' → mysql, 'Microsoft SQL Server' → sqlserver,
// '...CData...' → cdata
// 3. 不明: productName をそのまま小文字化して返す (見えない種別を残す)
//
// キャッシュ無し: getMetaData() は JDBC pool が最適化済みで安価 (probe SQL 4 本より高速)。
// deploy 後の stale を避けるため毎回新規に判定する。
// ============================================================
// 内部: URL prefix と productName から正規化 DB type を導出
function _classifyDbType(url, productName) {
var u = String(url || '').toLowerCase();
var p = String(productName || '').toLowerCase();
// CData: jdbc:cdata:salesforce:User=... → 'cdata-salesforce'
// サブドライバ識別子 (salesforce/rest/excel/...) を含めて返す
var mC = u.match(/^jdbc:cdata:([a-z0-9_]+)/);
if (mC) return 'cdata-' + mC[1];
if (u.indexOf('jdbc:oracle:') === 0) return 'oracle';
if (u.indexOf('jdbc:postgresql:') === 0) return 'postgres';
if (u.indexOf('jdbc:mysql:') === 0) return 'mysql';
if (u.indexOf('jdbc:mariadb:') === 0) return 'mysql';
if (u.indexOf('jdbc:sqlserver:') === 0) return 'sqlserver';
if (u.indexOf('jdbc:microsoft:sqlserver:') === 0) return 'sqlserver';
if (u.indexOf('jdbc:db2:') === 0) return 'db2';
// CData 直接サブプロトコル URL (cdata: prefix 無し): jdbc:googlesheets: / jdbc:salesforce: /
// jdbc:kintone: / jdbc:rest: / jdbc:excel: 等。 CData JDBC ドライバは バージョン/設定で
// URL prefix が 'jdbc:cdata::' か 'jdbc::' の両形式を取りうるため、
// 既知 RDB 以外の jdbc:: URL は CData サブドライバ '' として扱う
// (sys_tables / sys_tablecolumns カタログにフォールバックして スキーマ取得を試みる)。
var mP = u.match(/^jdbc:([a-z0-9_]+):/);
if (mP) return 'cdata-' + mP[1];
// URL でマッチしない場合は productName で判定
if (p.indexOf('cdata') >= 0) return 'cdata';
if (p.indexOf('oracle') >= 0) return 'oracle';
if (p.indexOf('postgresql') >= 0) return 'postgres';
if (p.indexOf('mysql') >= 0) return 'mysql';
if (p.indexOf('mariadb') >= 0) return 'mysql';
if (p.indexOf('microsoft sql server') >= 0 || p.indexOf('sql server') >= 0) return 'sqlserver';
if (p.indexOf('db2') === 0 || p.indexOf('db2 ') >= 0 || p.indexOf('db2/') >= 0) return 'db2';
// 不明な種別は productName を返す (独自JDBCに対応)
return p || 'unknown';
}
// 内部: URL から データベース/サービス/カタログ名を抽出
// 例:
// jdbc:oracle:thin:@//host:1521/XEPDB1 → 'XEPDB1'
// jdbc:oracle:thin:@host:1521:XEPDB1 → 'XEPDB1' (SID)
// jdbc:postgresql://host:5432/mydb → 'mydb'
// jdbc:mysql://host:3306/mydb?useSSL=false → 'mydb'
// jdbc:sqlserver://host:1433;databaseName=mydb;... → 'mydb'
// jdbc:db2://host:50000/mydb → 'mydb'
// jdbc:cdata:salesforce:User=u@org.com;OAuthClientId=… → '' (catalog 経由で取得)
function _dbNameFromUrl(url) {
if (!url) return '';
var u = String(url);
// Oracle service name (slash 経由)
var mOraSvc = u.match(/jdbc:oracle:[^:]+:@\/\/[^\/]+\/([^?;]+)/i);
if (mOraSvc) return mOraSvc[1];
// Oracle SID (colon 経由)
var mOraSid = u.match(/jdbc:oracle:[^:]+:@[^:\/]+:\d+:([^?;]+)/i);
if (mOraSid) return mOraSid[1];
// PG / MySQL / MariaDB / DB2
var mDb = u.match(/jdbc:(?:postgresql|mysql|mariadb|db2):\/\/[^\/]+\/([^?;]+)/i);
if (mDb) return mDb[1];
// SQL Server (databaseName=xxx 形式)
var mSs = u.match(/databaseName=([^;]+)/i);
if (mSs) return mSs[1];
return '';
}
// 内部: TalonConfig (= getOtherDBConn の戻り値) または null から JDBC metadata 経由で
// DB type / URL / DB 名 / productName を取得。 null = 主 TALON DB。
// 返り値: { type: 'oracle'|...'cdata-salesforce'|'unknown',
// url: string, dbName: string, productName: string }
//
// トランザクション扱い:
// 主 DB はもうユーザー処理がトランザクション内にいる前提。 外部 DB は
// getOtherDBConn 直後の状態で getDataSource().getConnection() が
// TransactionNotYetBegunException を投げる。 そのため
// try dbConfig.begin() → connection → metadata → dbConfig.rollback()
// の順で 検出専用の短命トランザクションを張る。 既に begin 済の場合は
// 2 度目の begin() は失敗するので、 そのときは rollback もスキップする。
function _detectDbInfoViaMetaData(dbConfig) {
var cfg = dbConfig || TALON.getDbConfig();
var beganHere = false;
var info = { type: 'unknown', url: '', dbName: '', productName: '' };
try {
try { cfg.begin(); beganHere = true; } catch (eB) { /* 既に begin 済 */ }
var conn = cfg.getDataSource().getConnection();
var md = conn.getMetaData();
try { info.url = String(md.getURL() || ''); } catch (eU) {}
try { info.productName = String(md.getDatabaseProductName() || ''); } catch (eN) {}
info.type = _classifyDbType(info.url, info.productName);
try { TALON.getLogger().writeInfo('[TFC] detectDbInfo: url=' + info.url + ', productName=' + info.productName + ', type=' + info.type); } catch (igL) {}
// DB 名: まず Connection.getCatalog() を試す (CData は OAuth Org 名等が入る)、
// 取れなければ URL からパースする (Oracle SERVICE/SID, PG/MySQL/DB2 のパス, SS databaseName)
try {
var cat = String(conn.getCatalog() || '');
if (cat) info.dbName = cat;
} catch (eC) {}
if (!info.dbName) info.dbName = _dbNameFromUrl(info.url);
return info;
} catch (e) {
try { TALON.getLogger().writeWarn('[TFC] detectDbInfo: metadata 取得失敗 → unknown フォールバック: ' + e); } catch (ig) {}
return info;
} finally {
if (beganHere) { try { cfg.rollback(); } catch (eR) {} }
}
}
// type 文字列のみ返す互換 API (既存呼出は こちら)
TFC.detectDbType = function () {
return _detectDbInfoViaMetaData(null).type;
};
TFC.detectDbTypeByConn = function (conn) {
if (!conn) return TFC.detectDbType();
return _detectDbInfoViaMetaData(conn).type;
};
// 詳細 info を返す新 API (DB 名等が必要なときに使う)
TFC.detectDbInfo = function () {
return _detectDbInfoViaMetaData(null);
};
TFC.detectDbInfoByConn = function (conn) {
if (!conn) return TFC.detectDbInfo();
return _detectDbInfoViaMetaData(conn);
};
// ============================================================
// ER 図出力 (A5:SQL Mk-2 ネイティブ + DDL 生成)
// ============================================================
// TFC.generateErDiagram(tableNames, opts)
// tableNames: string[] 対象テーブル物理名
// opts: { dbType: 'oracle'|'postgres'|'mysql'|'sqlserver'|'db2'
// (default: opts.conn ? detectDbTypeByConn(conn) : detectDbType()),
// conn: TalonConfig (省略時 = 主 TALON DB)
// TALON.getOtherDBConn('1') 等で取得した外部 DB 接続。
// 指定するとそのコネクションでスキーマ情報を取得する (複数DB接続対応)。
// includeFks: true (default: true) }
// 戻り値: { meta: {tables, fks}, a5er: string, ddl: string }
// テーブル定義・FK・テーブル/列コメントを TalonDbUtil.select で DB スキーマビューから取得し、
// .a5er (A5:SQL Mk-2 ネイティブ INI 風 + UTF-8 BOM + CRLF) と .sql (DDL) を生成。
TFC.generateErDiagram = function (tableNames, opts) {
opts = opts || {};
var conn = opts.conn || null;
var dbType = (opts.dbType || (conn ? TFC.detectDbTypeByConn(conn) : TFC.detectDbType()) || 'oracle').toLowerCase();
// 'postgresql' エイリアスを 'postgres' に正規化
if (dbType === 'postgresql') dbType = 'postgres';
// 'mysql_linux' / 'mysql_windows' → 'mysql'
if (dbType.indexOf('mysql') === 0) dbType = 'mysql';
// 'cdata-salesforce' / 'cdata-rest' / ... → 'cdata' (sys_* カタログは 全サブドライバ共通)
// サブドライバ名は FK スキーマ系統の選択 (Salesforce = Referenced* 系) に使うため保持
var cdataSub = '';
if (dbType.indexOf('cdata-') === 0) {
cdataSub = dbType.substring(6);
dbType = 'cdata';
}
var includeFks = opts.includeFks !== false;
// 未知 DB: カタログビューが どの dialect とも 合致しない → テーブル名スタブだけ返す
// (依存関係タブ / 全設定タブの DB バッジ表示用 = accessDb / dbType の伝播)
if (dbType === 'unknown') {
var stubTables = [];
for (var sti = 0; sti < tableNames.length; sti++) {
stubTables.push({ name: tableNames[sti], comment: '', cols: [], pkCols: [] });
}
return { meta: { tables: stubTables, fks: [] }, a5er: '', ddl: '' };
}
// CData も SYS カタログ経由で 通常の DB と同じく メタ取得する。 catalog query が
// 失敗 (= 一部 CData ドライバで sys_* が無い場合) は スタブにフォールバック。
if (dbType === 'cdata') {
try {
var metaC = _fetchErMeta(tableNames, dbType, includeFks, conn, cdataSub);
return {
meta: metaC,
a5er: _erToA5er(metaC),
ddl: _erToDdl(metaC, dbType)
};
} catch (eCD) {
try { TALON.getLogger().writeWarn('[TFC] CData ER メタ取得失敗 → テーブル名スタブにフォールバック: ' + eCD); } catch (ig) {}
var stubC = [];
for (var stj = 0; stj < tableNames.length; stj++) {
stubC.push({ name: tableNames[stj], comment: '', cols: [], pkCols: [] });
}
return { meta: { tables: stubC, fks: [] }, a5er: '', ddl: '' };
}
}
var meta = _fetchErMeta(tableNames, dbType, includeFks, conn);
return {
meta: meta,
a5er: _erToA5er(meta),
ddl: _erToDdl(meta, dbType)
};
};
// ============================================================
// テーブル名 正規化キー (★抜本対応 2026-05-29)
// ============================================================
// 「表示用名前」 と「検索用キー」 の責任分離。
// - 表示 (HTML / DDL / A5er / tooltip) : DB 由来の元 case をそのまま使う
// (例: PG なら lowercase / Oracle なら UPPER / Salesforce 等 case-sensitive
// データソースでは PascalCase など、 取得元のものをそのまま見せる)
// - 検索 / Map キー / HTML anchor ID : _tblKey() で UPPER 正規化 (環境横断で安定)
//
// すべての内部 Map (erTableBgRead/Write / funcTableRefs / byTable / fkChildCols /
// physMatch.byTable など) は _tblKey() を通したキーで統一する。 anchor ID
// (er-diagram.html#tbl-XXX) も _tblKey() で統一することで、 環境別の case 違いに
// 関係なくリンクが解決する。
TFC._tblKey = function (name) { return String(name || '').toUpperCase(); };
// CData (Salesforce) の Description boilerplate からラベルを抽出する。
// Salesforce ドライバは sys_tablecolumns.ColumnLabel を持たない代わりに、
// Description にフィールドラベルを定型文で包んで返す:
// JA: "'顧客 ID' ラベルはこのフィールドに一致します。" → "顧客 ID"
// EN: "Label 'Account ID' corresponds to this field." → "Account ID"
// 定型文にマッチしない Description (= 利用者が設定した説明等) はそのまま返す。
function _cdataCommentToLabel(s) {
if (!s) return s;
var str = String(s);
var m = str.match(/^'(.+)'\s*ラベルはこのフィールドに一致します。?$/);
if (m) return m[1];
m = str.match(/^Label\s+'(.+)'\s+corresponds\s+to\s+this\s+field\.?$/i);
if (m) return m[1];
return s;
}
// テーブル メタデータ取得 (DB エンジン別)
// 返り値: {tables: [{name, comment, cols:[{name, type, len, prec, scale, nullable, isPk}]}],
// fks: [{childTable, childCol, parentTable, parentCol, name}]}
//
// `tables[i].name` は DB 由来の元 case を保持する。 内部 Map のキーとしては
// _tblKey(t.name) を使うこと。
function _fetchErMeta(tableNames, dbType, includeFks, conn, cdataSub) {
var meta = { tables: [], fks: [] };
if (!tableNames || tableNames.length === 0) return meta;
// 接続別 SELECT。 conn=null/undefined のときは主 TALON DB (TFC.selectU)。
function sel(sql) { return conn ? TFC.selectUByConn(conn, sql) : TFC.selectU(sql); }
// SQL の IN 句用に bind 化されない文字列リテラルでエスケープ (常に大文字化)
// inListExact は呼出側から渡された元 case のままの IN リスト。 CData では
// UPPER(TableName) 比較だと フィルタがドライバにプッシュダウンされず 全テーブルの
// メタデータ列挙 (Salesforce 等では数分) になるため、 exact-match を優先する。
var inList = '';
var inListExact = '';
var upperNames = [];
for (var i = 0; i < tableNames.length; i++) {
var nameUp = TFC._tblKey(tableNames[i]).replace(/'/g, "''");
upperNames.push(nameUp);
if (i > 0) { inList += ','; inListExact += ','; }
inList += "'" + nameUp + "'";
inListExact += "'" + String(tableNames[i] || '').replace(/'/g, "''") + "'";
}
var queries = _erQueries(dbType, inList, inListExact, cdataSub);
// 列定義 (selectUByConn 経由で PG の lowercase キー → uppercase 化)
var colRows = sel(queries.cols);
// CData の exact-match で 0 件 (= 設定由来の case が実テーブル名と不一致) の場合は
// UPPER() 比較版で再試行する (全メタデータ列挙になるため低速だが確実)
if (dbType === 'cdata' && colRows.size() === 0 && inListExact !== inList) {
try { TALON.getLogger().writeWarn('[TFC] CData exact-match 0 件 → UPPER 比較で再試行: ' + inListExact); } catch (igUx) {}
queries = _erQueries(dbType, inList, null, cdataSub);
colRows = sel(queries.cols);
}
var byTable = {};
for (var ci = 0; ci < colRows.size(); ci++) {
var r = colRows[ci];
var tn = TFC.s(r['TABLE_NAME']); // 元 case 保持 (表示用)
var tnKey = TFC._tblKey(tn); // 内部 Map キー (UPPER)
if (!byTable[tnKey]) byTable[tnKey] = { name: tn, comment: '', cols: [], colByName: {} };
// CData: 列コメント (Description) は cols クエリに統合済 (COL_COMMENT)。
// ボイラープレートを除外し、 定型文からラベル (= 論理名相当) を抽出する。
var colCmt = '';
if (dbType === 'cdata') {
var rawCc = TFC.s(r['COL_COMMENT']);
if (rawCc) {
var lcCc = rawCc.toLowerCase().replace(/\s+/g, ' ').replace(/\.\s*$/, '').trim();
if (lcCc !== 'autogenerated' && lcCc !== 'no description' && lcCc !== 'no information') {
colCmt = _cdataCommentToLabel(rawCc);
}
}
}
var colObj = {
name: TFC.s(r['COLUMN_NAME']),
type: TFC.s(r['DATA_TYPE']),
len: TFC.s(r['DATA_LENGTH']),
prec: TFC.s(r['DATA_PRECISION']),
scale: TFC.s(r['DATA_SCALE']),
nullable: TFC.s(r['NULLABLE']) !== 'N',
isPk: TFC.s(r['IS_PK']) === 'Y',
comment: colCmt
};
byTable[tnKey].cols.push(colObj);
byTable[tnKey].colByName[colObj.name] = colObj;
}
// テーブルコメント (オプション)
// ※ CData はサブドライバごとにカタログスキーマが異なるため、 コメント / FK は
// クエリ単位で非致命化する (失敗しても列定義だけは生かす)。
if (queries.comments) {
try {
var cmtRows = sel(queries.comments);
for (var mi = 0; mi < cmtRows.size(); mi++) {
var cr = cmtRows[mi];
var tn2 = TFC._tblKey(TFC.s(cr['TABLE_NAME']));
if (byTable[tn2]) byTable[tn2].comment = TFC.s(cr['COMMENTS']);
}
} catch (eCmt) {
try { TALON.getLogger().writeWarn('[TFC] テーブルコメント取得失敗 (続行): ' + eCmt); } catch (igC1) {}
}
}
// 列コメント (= 論理名相当) を取得して各列に紐付け
if (queries.colComments) {
try {
var ccRows = sel(queries.colComments);
for (var ki = 0; ki < ccRows.size(); ki++) {
var ccr = ccRows[ki];
var tn3 = TFC._tblKey(TFC.s(ccr['TABLE_NAME']));
var cn3 = TFC.s(ccr['COLUMN_NAME']);
var cmt3 = TFC.s(ccr['COMMENTS']);
// CData: Description の定型文からフィールドラベルを抽出
if (dbType === 'cdata') cmt3 = _cdataCommentToLabel(cmt3);
if (byTable[tn3] && byTable[tn3].colByName[cn3]) {
byTable[tn3].colByName[cn3].comment = cmt3;
}
}
} catch (eCc) {
try { TALON.getLogger().writeWarn('[TFC] 列コメント取得失敗 (続行): ' + eCc); } catch (igC2) {}
}
}
// 並び順: tableNames の指定順を維持 (upperNames で照合)
for (var ti = 0; ti < upperNames.length; ti++) {
var name = upperNames[ti];
if (byTable[name]) meta.tables.push(byTable[name]);
}
// FK: childTable / parentTable は表示にも検索にも使うため、 元 case 保持。
// 利用側で必要に応じて _tblKey() で正規化する。
// CData: sys_foreignkeys のスキーマが 2 系統ある
// (ForeignKeyTable/PrimaryKeyTable 系 と TableName/ReferencedTableName 系)。
// 本命が失敗したら fksFallback で再試行し、 それも失敗したら FK 無しで続行する。
if (includeFks && queries.fks) {
var fkRows = null;
try {
fkRows = sel(queries.fks);
} catch (eFk1) {
if (queries.fksFallback) {
try { TALON.getLogger().writeWarn('[TFC] FK クエリ失敗 → 代替スキーマで再試行: ' + eFk1); } catch (igF1) {}
try { fkRows = sel(queries.fksFallback); }
catch (eFk2) {
try { TALON.getLogger().writeWarn('[TFC] FK 代替クエリも失敗 (FK 無しで続行): ' + eFk2); } catch (igF2) {}
}
} else {
try { TALON.getLogger().writeWarn('[TFC] FK クエリ失敗 (FK 無しで続行): ' + eFk1); } catch (igF3) {}
}
}
if (fkRows) {
for (var fi = 0; fi < fkRows.size(); fi++) {
var fr = fkRows[fi];
meta.fks.push({
childTable: TFC.s(fr['CHILD_TABLE']),
childCol: TFC.s(fr['CHILD_COL']),
parentTable: TFC.s(fr['PARENT_TABLE']),
parentCol: TFC.s(fr['PARENT_COL']),
name: TFC.s(fr['CONSTRAINT_NAME'])
});
}
}
}
return meta;
}
function _erQueries(dbType, inList, inListExact, cdataSub) {
// 大文字小文字不一致対策: 全 IN 比較を UPPER() 両側で行う。
// inList は呼出側で常に大文字化済。 各 DB ビュー側の値も UPPER 関数を適用。
// inListExact (元 case の IN リスト) は CData 専用: UPPER() 比較だと CData が
// フィルタをドライバにプッシュダウンできず全テーブルのメタデータ列挙になるため、
// exact-match で照会する (RDB 系カタログビューは高速なので UPPER のまま)。
if (dbType === 'oracle') {
return {
cols:
"SELECT c.table_name, c.column_name, c.data_type, c.data_length, " +
" c.data_precision, c.data_scale, c.nullable, c.column_id, " +
" CASE WHEN pk.column_name IS NOT NULL THEN 'Y' ELSE 'N' END AS is_pk " +
"FROM user_tab_columns c " +
"LEFT JOIN ( " +
" SELECT cc.table_name, cc.column_name " +
" FROM user_constraints uc " +
" JOIN user_cons_columns cc ON uc.constraint_name = cc.constraint_name " +
" WHERE uc.constraint_type = 'P' " +
") pk ON pk.table_name = c.table_name AND pk.column_name = c.column_name " +
"WHERE UPPER(c.table_name) IN (" + inList + ") " +
"ORDER BY c.table_name, c.column_id",
comments:
"SELECT table_name, comments " +
"FROM user_tab_comments " +
"WHERE UPPER(table_name) IN (" + inList + ")",
colComments:
"SELECT table_name, column_name, comments " +
"FROM user_col_comments " +
"WHERE UPPER(table_name) IN (" + inList + ") " +
"AND comments IS NOT NULL",
fks:
"SELECT a.table_name AS child_table, a.column_name AS child_col, " +
" r.table_name AS parent_table, r.column_name AS parent_col, " +
" c.constraint_name " +
"FROM user_constraints c " +
"JOIN user_cons_columns a ON c.constraint_name = a.constraint_name " +
"JOIN user_cons_columns r ON c.r_constraint_name = r.constraint_name " +
" AND a.position = r.position " +
"WHERE c.constraint_type = 'R' " +
"AND UPPER(a.table_name) IN (" + inList + ") " +
"ORDER BY a.table_name, c.constraint_name, a.position"
};
}
if (dbType === 'postgres' || dbType === 'postgresql') {
return {
cols:
"SELECT c.table_name AS \"TABLE_NAME\", c.column_name AS \"COLUMN_NAME\", " +
" c.data_type AS \"DATA_TYPE\", c.character_maximum_length AS \"DATA_LENGTH\", " +
" c.numeric_precision AS \"DATA_PRECISION\", c.numeric_scale AS \"DATA_SCALE\", " +
" c.is_nullable AS \"NULLABLE\", c.ordinal_position AS \"COLUMN_ID\", " +
" CASE WHEN pk.column_name IS NOT NULL THEN 'Y' ELSE 'N' END AS \"IS_PK\" " +
"FROM information_schema.columns c " +
"LEFT JOIN ( " +
" SELECT kcu.table_name, kcu.column_name " +
" FROM information_schema.table_constraints tc " +
" JOIN information_schema.key_column_usage kcu USING (constraint_name) " +
" WHERE tc.constraint_type = 'PRIMARY KEY' " +
") pk ON pk.table_name = c.table_name AND pk.column_name = c.column_name " +
"WHERE c.table_schema = current_schema() " +
"AND UPPER(c.table_name) IN (" + inList + ") " +
"ORDER BY c.table_name, c.ordinal_position",
comments:
"SELECT c.relname AS \"TABLE_NAME\", d.description AS \"COMMENTS\" " +
"FROM pg_class c " +
"JOIN pg_description d ON d.objoid = c.oid AND d.objsubid = 0 " +
"WHERE c.relkind = 'r' " +
"AND UPPER(c.relname) IN (" + inList + ")",
colComments:
"SELECT c.relname AS \"TABLE_NAME\", a.attname AS \"COLUMN_NAME\", " +
" d.description AS \"COMMENTS\" " +
"FROM pg_class c " +
"JOIN pg_attribute a ON a.attrelid = c.oid AND a.attnum > 0 " +
"JOIN pg_description d ON d.objoid = c.oid AND d.objsubid = a.attnum " +
"WHERE c.relkind = 'r' " +
"AND UPPER(c.relname) IN (" + inList + ")",
fks:
"SELECT tc.table_name AS \"CHILD_TABLE\", kcu.column_name AS \"CHILD_COL\", " +
" ccu.table_name AS \"PARENT_TABLE\", ccu.column_name AS \"PARENT_COL\", " +
" tc.constraint_name AS \"CONSTRAINT_NAME\" " +
"FROM information_schema.table_constraints tc " +
"JOIN information_schema.key_column_usage kcu USING (constraint_name) " +
"JOIN information_schema.constraint_column_usage ccu USING (constraint_name) " +
"WHERE tc.constraint_type = 'FOREIGN KEY' " +
"AND UPPER(tc.table_name) IN (" + inList + ")"
};
}
if (dbType === 'mysql') {
// MySQL: information_schema を使用。テーブルコメントは TABLES.TABLE_COMMENT、
// 列コメントは COLUMNS.COLUMN_COMMENT。スキーマは DATABASE() (現在 DB)。
return {
cols:
"SELECT c.TABLE_NAME, c.COLUMN_NAME, c.DATA_TYPE, " +
" c.CHARACTER_MAXIMUM_LENGTH AS DATA_LENGTH, " +
" c.NUMERIC_PRECISION AS DATA_PRECISION, c.NUMERIC_SCALE AS DATA_SCALE, " +
" c.IS_NULLABLE AS NULLABLE, c.ORDINAL_POSITION AS COLUMN_ID, " +
" CASE WHEN c.COLUMN_KEY = 'PRI' THEN 'Y' ELSE 'N' END AS IS_PK " +
"FROM information_schema.COLUMNS c " +
"WHERE c.TABLE_SCHEMA = DATABASE() " +
"AND UPPER(c.TABLE_NAME) IN (" + inList + ") " +
"ORDER BY c.TABLE_NAME, c.ORDINAL_POSITION",
comments:
"SELECT TABLE_NAME, TABLE_COMMENT AS COMMENTS " +
"FROM information_schema.TABLES " +
"WHERE TABLE_SCHEMA = DATABASE() " +
"AND UPPER(TABLE_NAME) IN (" + inList + ")",
colComments:
"SELECT TABLE_NAME, COLUMN_NAME, COLUMN_COMMENT AS COMMENTS " +
"FROM information_schema.COLUMNS " +
"WHERE TABLE_SCHEMA = DATABASE() " +
"AND UPPER(TABLE_NAME) IN (" + inList + ") " +
"AND COLUMN_COMMENT <> ''",
fks:
"SELECT kcu.TABLE_NAME AS CHILD_TABLE, kcu.COLUMN_NAME AS CHILD_COL, " +
" kcu.REFERENCED_TABLE_NAME AS PARENT_TABLE, " +
" kcu.REFERENCED_COLUMN_NAME AS PARENT_COL, " +
" kcu.CONSTRAINT_NAME " +
"FROM information_schema.KEY_COLUMN_USAGE kcu " +
"WHERE kcu.TABLE_SCHEMA = DATABASE() " +
"AND kcu.REFERENCED_TABLE_NAME IS NOT NULL " +
"AND UPPER(kcu.TABLE_NAME) IN (" + inList + ") " +
"ORDER BY kcu.TABLE_NAME, kcu.CONSTRAINT_NAME, kcu.ORDINAL_POSITION"
};
}
if (dbType === 'sqlserver') {
// SQL Server: sys.* + sys.extended_properties (MS_Description) でコメント
return {
cols:
// 桁数 (DATA_LENGTH): sys.columns.max_length は バイト長。
// ・nchar/nvarchar は 2 バイト/文字 なので /2 して文字数に
// ・ntext/text/image/xml (LOB) と max(-1) は固定桁数が無いので NULL
// ・それ以外 (char/varchar/binary 等) は max_length をそのまま
"SELECT t.name AS TABLE_NAME, c.name AS COLUMN_NAME, " +
" TYPE_NAME(c.user_type_id) AS DATA_TYPE, " +
" CASE WHEN c.max_length = -1 THEN NULL " +
" WHEN TYPE_NAME(c.user_type_id) IN ('ntext','text','image','xml') THEN NULL " +
" WHEN TYPE_NAME(c.user_type_id) IN ('nchar','nvarchar') THEN c.max_length / 2 " +
" ELSE c.max_length END AS DATA_LENGTH, " +
" c.precision AS DATA_PRECISION, c.scale AS DATA_SCALE, " +
" CASE WHEN c.is_nullable = 1 THEN 'Y' ELSE 'N' END AS NULLABLE, " +
" c.column_id AS COLUMN_ID, " +
" CASE WHEN EXISTS ( " +
" SELECT 1 FROM sys.index_columns ic " +
" JOIN sys.indexes i ON i.object_id = ic.object_id AND i.index_id = ic.index_id " +
" WHERE ic.object_id = c.object_id AND ic.column_id = c.column_id AND i.is_primary_key = 1 " +
" ) THEN 'Y' ELSE 'N' END AS IS_PK " +
"FROM sys.columns c " +
"JOIN sys.tables t ON t.object_id = c.object_id " +
"WHERE UPPER(t.name) IN (" + inList + ") " +
"ORDER BY t.name, c.column_id",
comments:
"SELECT t.name AS TABLE_NAME, CAST(ep.value AS NVARCHAR(MAX)) AS COMMENTS " +
"FROM sys.tables t " +
"LEFT JOIN sys.extended_properties ep ON ep.major_id = t.object_id " +
" AND ep.minor_id = 0 AND ep.name = 'MS_Description' " +
"WHERE UPPER(t.name) IN (" + inList + ") AND ep.value IS NOT NULL",
colComments:
"SELECT t.name AS TABLE_NAME, c.name AS COLUMN_NAME, " +
" CAST(ep.value AS NVARCHAR(MAX)) AS COMMENTS " +
"FROM sys.tables t " +
"JOIN sys.columns c ON c.object_id = t.object_id " +
"JOIN sys.extended_properties ep ON ep.major_id = t.object_id " +
" AND ep.minor_id = c.column_id AND ep.name = 'MS_Description' " +
"WHERE UPPER(t.name) IN (" + inList + ")",
fks:
"SELECT tc.name AS CHILD_TABLE, cc.name AS CHILD_COL, " +
" tp.name AS PARENT_TABLE, cp.name AS PARENT_COL, " +
" fk.name AS CONSTRAINT_NAME " +
"FROM sys.foreign_keys fk " +
"JOIN sys.foreign_key_columns fkc ON fkc.constraint_object_id = fk.object_id " +
"JOIN sys.tables tc ON tc.object_id = fkc.parent_object_id " +
"JOIN sys.columns cc ON cc.object_id = fkc.parent_object_id AND cc.column_id = fkc.parent_column_id " +
"JOIN sys.tables tp ON tp.object_id = fkc.referenced_object_id " +
"JOIN sys.columns cp ON cp.object_id = fkc.referenced_object_id AND cp.column_id = fkc.referenced_column_id " +
"WHERE UPPER(tc.name) IN (" + inList + ") " +
"ORDER BY tc.name, fk.name, fkc.constraint_column_id"
};
}
if (dbType === 'cdata') {
// CData JDBC (Salesforce / REST / Excel / SharePoint / 200+ ドライバ群)
// 全ドライバ共通の SYS カタログ:
// - sys_tables: TableName / TableType / Description
// - sys_tablecolumns: TableName / ColumnName / DataTypeName / Length /
// NumericPrecision / NumericScale / IsKey / IsNullable /
// Description / Ordinal / IsHidden / IsReadOnly
// - sys_foreignkeys: PrimaryKeyTable / PrimaryKeyColumn / ForeignKeyTable /
// ForeignKeyColumn / ForeignKeyName / KeySeq
// テーブル名は ソース上の case を保持 (Salesforce: 'Account' / REST: 任意)。
// UPPER() による IN 句で 大小区別なくマッチ可能。
// IsNullable / IsKey は boolean (true/false or 1/0) のため CASE で 'Y'/'N' に正規化。
// IsHidden 列は除外 (内部用途の カラム)。
// exact-match (元 case) を優先し、 無ければ UPPER 比較 (低速) にフォールバック。
// _fetchErMeta 側で exact 0 件時に inListExact=null で再呼出しされる。
var cdT = inListExact ? ("TableName IN (" + inListExact + ")")
: ("UPPER(TableName) IN (" + inList + ")");
var cdTc = inListExact ? ("c.TableName IN (" + inListExact + ")")
: ("UPPER(c.TableName) IN (" + inList + ")");
var cdFk = inListExact ? ("ForeignKeyTable IN (" + inListExact + ")")
: ("UPPER(ForeignKeyTable) IN (" + inList + ")");
// FK クエリ: sys_foreignkeys のスキーマは 2 系統ある:
// legacy: ForeignKeyTable/ForeignKeyColumn/PrimaryKeyTable/PrimaryKeyColumn (Google Sheets 等)
// ref: TableName/ColumnName/ReferencedTableName/ReferencedColumnName (Salesforce 25.0 で確認)
// 未知列を含むクエリは CData が全メタデータ列挙に落ちて失敗まで数分かかるため、
// サブドライバ名が分かる場合は正しい側を本命にし、 もう一方をフォールバックに回す。
var _cdFkLegacy =
"SELECT ForeignKeyTable AS CHILD_TABLE, ForeignKeyColumn AS CHILD_COL, " +
" PrimaryKeyTable AS PARENT_TABLE, PrimaryKeyColumn AS PARENT_COL, " +
" ForeignKeyName AS CONSTRAINT_NAME " +
"FROM sys_foreignkeys " +
"WHERE " + cdFk + " " +
"ORDER BY ForeignKeyTable, ForeignKeyName, KeySeq";
var _cdFkRef =
"SELECT TableName AS CHILD_TABLE, ColumnName AS CHILD_COL, " +
" ReferencedTableName AS PARENT_TABLE, ReferencedColumnName AS PARENT_COL, " +
" ForeignKeyName AS CONSTRAINT_NAME " +
"FROM sys_foreignkeys " +
"WHERE " + cdT + " " +
"ORDER BY TableName, ForeignKeyName";
return {
cols:
// 注: ColumnLabel 列は SELECT しない。 Salesforce ドライバ (25.0) には
// 存在せず、 未知列を含むクエリは CData が全メタデータ列挙に落ちて
// 失敗までに数分かかる。 ラベル相当は Description の定型文
// ("'X' ラベルはこのフィールドに一致します。") から抽出する
// (_cdataCommentToLabel)。 Google Sheets 等の ColumnLabel は
// ColumnName と同値のため SELECT する価値が無い。
// ★ 性能: 列コメント (Description) を cols に統合し、 別途 colComments で
// sys_tablecolumns を 2 回スキャンしていたのを 1 回に削減 (colComments=null)。
"SELECT c.TableName AS TABLE_NAME, c.ColumnName AS COLUMN_NAME, " +
" c.DataTypeName AS DATA_TYPE, c.Length AS DATA_LENGTH, " +
" c.NumericPrecision AS DATA_PRECISION, c.NumericScale AS DATA_SCALE, " +
" CASE WHEN c.IsNullable = true THEN 'Y' ELSE 'N' END AS NULLABLE, " +
" c.Ordinal AS COLUMN_ID, " +
" CASE WHEN c.IsKey = true THEN 'Y' ELSE 'N' END AS IS_PK, " +
" c.Description AS COL_COMMENT " +
"FROM sys_tablecolumns c " +
"WHERE " + cdTc + " " +
"AND (c.IsHidden IS NULL OR c.IsHidden = false) " +
"ORDER BY c.TableName, c.Ordinal",
comments:
// CData boilerplate ('autogenerated.' / 'No description.') は除外
"SELECT TableName AS TABLE_NAME, Description AS COMMENTS " +
"FROM sys_tables " +
"WHERE " + cdT + " " +
"AND Description IS NOT NULL " +
"AND Description != 'autogenerated.' AND Description != 'autogenerated' " +
"AND Description != 'No description.' AND Description != 'No description'",
// colComments は cols に統合済 (sys_tablecolumns の再スキャンを廃止して高速化)
colComments: null,
fks: (cdataSub === 'salesforce') ? _cdFkRef : _cdFkLegacy,
fksFallback: (cdataSub === 'salesforce') ? _cdFkLegacy : _cdFkRef
};
}
if (dbType === 'db2') {
// DB2: SYSCAT.* カタログビュー。 既定スキーマは CURRENT SCHEMA。
// - SYSCAT.COLUMNS: TABNAME / COLNAME / TYPENAME / LENGTH / SCALE / NULLS
// (NULLS='Y' が NULL 許可) / COLNO / KEYSEQ (>0 が PK) / REMARKS
// - SYSCAT.TABLES: TABNAME / REMARKS (テーブルコメント)
// - SYSCAT.REFERENCES + SYSCAT.KEYCOLUSE: FK 関係 (子 KEYCOLUSE と親 KEYCOLUSE を
// COLSEQ で対応付けて 1 列ずつ展開)
return {
cols:
"SELECT c.TABNAME AS TABLE_NAME, c.COLNAME AS COLUMN_NAME, " +
" c.TYPENAME AS DATA_TYPE, c.LENGTH AS DATA_LENGTH, " +
" c.LENGTH AS DATA_PRECISION, c.SCALE AS DATA_SCALE, " +
" c.NULLS AS NULLABLE, c.COLNO AS COLUMN_ID, " +
" CASE WHEN c.KEYSEQ > 0 THEN 'Y' ELSE 'N' END AS IS_PK " +
"FROM SYSCAT.COLUMNS c " +
"WHERE c.TABSCHEMA = CURRENT SCHEMA " +
"AND UPPER(c.TABNAME) IN (" + inList + ") " +
"ORDER BY c.TABNAME, c.COLNO",
comments:
"SELECT TABNAME AS TABLE_NAME, REMARKS AS COMMENTS " +
"FROM SYSCAT.TABLES " +
"WHERE TABSCHEMA = CURRENT SCHEMA " +
"AND UPPER(TABNAME) IN (" + inList + ") AND REMARKS IS NOT NULL",
colComments:
"SELECT TABNAME AS TABLE_NAME, COLNAME AS COLUMN_NAME, REMARKS AS COMMENTS " +
"FROM SYSCAT.COLUMNS " +
"WHERE TABSCHEMA = CURRENT SCHEMA " +
"AND UPPER(TABNAME) IN (" + inList + ") AND REMARKS IS NOT NULL",
fks:
"SELECT r.TABNAME AS CHILD_TABLE, kc.COLNAME AS CHILD_COL, " +
" r.REFTABNAME AS PARENT_TABLE, kp.COLNAME AS PARENT_COL, " +
" r.CONSTNAME AS CONSTRAINT_NAME " +
"FROM SYSCAT.REFERENCES r " +
"JOIN SYSCAT.KEYCOLUSE kc ON kc.CONSTNAME = r.CONSTNAME " +
" AND kc.TABSCHEMA = r.TABSCHEMA " +
" AND kc.TABNAME = r.TABNAME " +
"JOIN SYSCAT.KEYCOLUSE kp ON kp.CONSTNAME = r.REFKEYNAME " +
" AND kp.TABSCHEMA = r.REFTABSCHEMA " +
" AND kp.TABNAME = r.REFTABNAME " +
" AND kp.COLSEQ = kc.COLSEQ " +
"WHERE r.TABSCHEMA = CURRENT SCHEMA " +
"AND UPPER(r.TABNAME) IN (" + inList + ") " +
"ORDER BY r.TABNAME, r.CONSTNAME, kc.COLSEQ"
};
}
throw new Error('Unsupported dbType: ' + dbType);
}
// ============================================================
// DDL (CREATE TABLE + ALTER TABLE ADD CONSTRAINT) 生成
// ============================================================
// draw.io / MySQL Workbench / A5:SQL Mk-2 / DBeaver 等 ほぼ全ての ER 図ツールで
// 「DDL リバース」入力として使える業界標準形式。 副次的にバックアップ・移植にも使える。
function _erToDdl(meta, dbType) {
var s = '-- Generated by TLN_FUNC_DOC_ER_DIAGRAM_COMMON (dbType=' + dbType + ')\n';
s += '-- ' + new Date() + '\n\n';
// CREATE TABLE
for (var ti = 0; ti < meta.tables.length; ti++) {
var t = meta.tables[ti];
s += '-- ============================================================\n';
s += '-- ' + t.name + (t.comment ? ' (' + t.comment + ')' : '') + '\n';
s += '-- ============================================================\n';
s += 'CREATE TABLE ' + t.name + ' (\n';
var pkCols = [];
for (var ci = 0; ci < t.cols.length; ci++) {
var c = t.cols[ci];
s += ' ' + c.name + ' ' + _ddlType(c, dbType);
if (!c.nullable) s += ' NOT NULL';
s += (ci < t.cols.length - 1) ? ',\n' : '\n';
if (c.isPk) pkCols.push(c.name);
}
s += ');\n';
if (pkCols.length > 0) {
s += 'ALTER TABLE ' + t.name +
' ADD CONSTRAINT PK_' + t.name +
' PRIMARY KEY (' + pkCols.join(', ') + ');\n';
}
// テーブルコメント (Oracle / PostgreSQL ともに COMMENT ON TABLE 構文)
if (t.comment) {
s += "COMMENT ON TABLE " + t.name + " IS '" + _ddlEsc(t.comment) + "';\n";
}
// 列コメント (= 論理名相当)
for (var ck = 0; ck < t.cols.length; ck++) {
var cc = t.cols[ck];
if (cc.comment) {
s += "COMMENT ON COLUMN " + t.name + "." + cc.name + " IS '" + _ddlEsc(cc.comment) + "';\n";
}
}
s += '\n';
}
// FK 制約
if (meta.fks.length > 0) {
s += '-- ============================================================\n';
s += '-- Foreign Key Constraints\n';
s += '-- ============================================================\n';
for (var fi = 0; fi < meta.fks.length; fi++) {
var f = meta.fks[fi];
s += 'ALTER TABLE ' + f.childTable +
' ADD CONSTRAINT ' + (f.name || ('FK_' + f.childTable + '_' + (fi + 1))) +
' FOREIGN KEY (' + f.childCol + ')' +
' REFERENCES ' + f.parentTable + ' (' + f.parentCol + ');\n';
}
}
return s;
}
function _ddlType(c, dbType) {
var t = String(c.type || '').toUpperCase();
if ((t === 'NUMBER' || t === 'NUMERIC' || t === 'DECIMAL')) {
if (c.prec) {
return t + '(' + c.prec + (c.scale && c.scale !== '0' ? ',' + c.scale : '') + ')';
}
return t;
}
if ((t.indexOf('CHAR') >= 0 || t.indexOf('VARCHAR') >= 0) && c.len && c.len !== '0') {
return t + '(' + c.len + ')';
}
return t || 'VARCHAR2(255)';
}
function _ddlEsc(s) {
return String(s || '').replace(/'/g, "''");
}
// ============================================================
// A5:SQL Mk-2 ネイティブ形式 (.a5er) 生成
// ============================================================
// 公式仕様: A5:SQL Mk-2 (https://a5m2.mmatsubara.com/) の独自 INI 風テキスト形式。
// - 文字コード: UTF-8 (BOM 付き)
// - 改行: CRLF
// - ヘッダ + [Manager] + [Entity]* + [Relation]* セクション
// - Field 行: "物理名","論理名","型","制約",PKフラグ,"","",$色,"コメント"
// - Relation 行: Entity1=子 / Entity2=親 / Fields1=子側列 / Fields2=親側列 (論理名)
// - 自動配置: テーブルを横 4 列 × 縦 N 行のグリッドに配置
function _erToA5er(meta) {
// レイアウト方針:
// 4 列固定 × 列ごとに Y を独立して詰めるパッキングレイアウト。
// 各エンティティのボックス高は HDR_H + (列数 × ROW_H) + FOOTER_H で算出し、
// 列数の多いテーブル (TLN_M_GENERAL_ITEM 等) が <続きあり> で切れないようにする。
// テーブル数が多くキャンバスから溢れる場合は、A5:SQL Mk-2 側で
// [設定 → ER図のプロパティ → 用紙サイズ/ページ数] を手動拡張する想定。
var ENT_W = 600, SP_X = 200, SP_Y = 100, COLS = 4;
var HDR_H = 70; // テーブル名ヘッダ部 + 上余白
var ROW_H = 36; // 列 1 行あたりの logical unit (実測: 旧 ENT_H=500 / 13 列 ≈ 34)
var FOOTER_H = 30; // 下マージン + <続きあり> マーカー領域分
var MIN_H = 200; // 列が極端に少ない場合の最小高
var TOP0 = 100, LEFT0 = 100;
var N = meta.tables.length;
// 列ごとに Y を独立して詰める (行ベース配置だと行内最大高に揃わず無駄な空きが出るため)
var positions = new Array(N);
var colY = new Array(COLS);
for (var ci0 = 0; ci0 < COLS; ci0++) colY[ci0] = TOP0;
for (var ti0 = 0; ti0 < N; ti0++) {
var t0 = meta.tables[ti0];
var nc0 = (t0.cols && t0.cols.length) || 0;
var h0 = Math.max(MIN_H, HDR_H + nc0 * ROW_H + FOOTER_H);
var col0 = ti0 % COLS;
var L0 = LEFT0 + col0 * (ENT_W + SP_X);
var T0 = colY[col0];
colY[col0] = T0 + h0 + SP_Y;
positions[ti0] = { left: L0, top: T0, height: h0 };
}
var L = [];
// ヘッダ
L.push('# A5:ER FORMAT:21');
L.push('# A5:ER ENCODING:UTF8');
L.push('# A5:ER Mk-1 Copyright © 2007 m.matsubara');
L.push('# A5:SQL Mk-2 Generated by TLN_FUNC_DOC_ER_DIAGRAM_COMMON');
L.push('# https://a5m2.mmatsubara.com');
L.push('');
// Manager セクション
L.push('[Manager]');
L.push('ProjectName=');
L.push('Author=');
L.push('MaxEntityRowShow=1000');
L.push('ReadOnlyRecommend=0');
L.push('PageInfo="Main",3,"A3Landscape",$FFFFFF');
L.push('LogicalView=0');
L.push('DecodeDomain=0');
L.push('ViewFormat=0');
L.push('UseNondependenceDashLine=0');
L.push('FontName=Tahoma');
L.push('FontSize=9');
L.push('PaperSize=A4Landscape');
L.push('ShowPageoutRelation=1');
L.push('DefaultPkName=%0:s_PKC');
L.push('DefaultPkIndexName=%0:s_PKI');
L.push('DefaultIndexName=%0:s_IX%1:d');
L.push('DefaultFkName=%0:s_FK%1:d');
L.push('SqlSeparator=0');
L.push('UpperCaseKeyword=0');
L.push('ShowTag=1');
L.push('ShowCommonAttributes=0');
L.push('ShowDisableAttributes=0');
L.push('BugFixEntityWidth=1');
L.push('');
// Entities (事前計算した positions を使用)
var stamp = _a5erTimestamp();
for (var ti = 0; ti < N; ti++) {
var t = meta.tables[ti];
var p = positions[ti];
L.push('[Entity]');
L.push('PName=' + t.name);
L.push('LName=' + (t.comment || t.name));
L.push('Comment=');
L.push('TableInnerOption=');
L.push('TableOption=');
L.push('Page=Main');
L.push('Left=' + p.left);
L.push('Top=' + p.top);
for (var ci = 0; ci < t.cols.length; ci++) {
var c = t.cols[ci];
var notNull = c.nullable ? '' : 'NOT NULL';
// Field="論理名","物理名","型","制約",PKフラグ(0/1),"","",$色,"コメント"
// 論理名 = USER_COL_COMMENTS / pg_description の列コメント。 無ければ物理名で代替
var lname = c.comment || c.name;
L.push('Field="' + _a5erStr(lname) + '","' + _a5erStr(c.name) +
'","' + _a5erStr(_a5erType(c)) + '","' + notNull + '",' +
(c.isPk ? '1' : '0') + ',"","",$FFFFFFFF,""');
}
L.push('EffectMode=None');
L.push('Color=$000000');
L.push('BkColor=$FFFFFF');
L.push('ModifiedDateTime=' + stamp);
L.push('Position="Main",' + p.left + ',' + p.top + ',' + ENT_W + ',' + p.height);
L.push('ZOrder=' + (ti + 1));
L.push('');
}
// Relations (FK) — 物理列名で参照 (A5 は Fields1/Fields2 を Field の論理名で
// マッチする仕様だが、 当ライブラリでは物理名=論理名 で生成しているため同値)
for (var fi = 0; fi < meta.fks.length; fi++) {
var f = meta.fks[fi];
L.push('[Relation]');
L.push('Entity1=' + f.childTable);
L.push('Entity2=' + f.parentTable);
L.push('RelationType1=1');
L.push('RelationType2=3');
L.push('Fields1=' + f.childCol);
L.push('Fields2=' + f.parentCol);
L.push('Cardinarity1=');
L.push('Cardinarity2=');
L.push('Position="MAIN",0,1438,8562,1812,R,R,""');
L.push('Dependence=0');
L.push('Caption=');
L.push('PName=');
L.push('LineMode=0');
L.push('Bar1=144');
L.push('Bar2=856');
L.push('Bar3=181');
L.push('TermPos1=R');
L.push('TermPos2=R');
L.push('ZOrder=' + (meta.tables.length + fi + 1));
L.push('');
}
// UTF-8 BOM () + CRLF 連結
return '' + L.join('\r\n');
}
function _a5erType(c) {
var t = String(c.type || '').toUpperCase();
if ((t === 'NUMBER' || t === 'NUMERIC' || t === 'DECIMAL') && c.prec) {
return t + '(' + c.prec + (c.scale && c.scale !== '0' ? ',' + c.scale : '') + ')';
}
if ((t.indexOf('CHAR') >= 0 || t.indexOf('VARCHAR') >= 0) && c.len && c.len !== '0') {
return t + '(' + c.len + ')';
}
return t || 'VARCHAR2';
}
function _a5erStr(s) {
// " 文字を "" でエスケープ (CSV 風)
return String(s || '').replace(/"/g, '""');
}
function _a5erTimestamp() {
var d = new Date();
function p(n) { n = '' + n; return n.length < 2 ? '0' + n : n; }
return '' + d.getFullYear() + p(d.getMonth() + 1) + p(d.getDate()) +
p(d.getHours()) + p(d.getMinutes()) + p(d.getSeconds());
}
// ============================================================
// ZIP 出力 (Java util.zip)
// ============================================================
// entries: [{name: 'a.html', content: 'string'}, {name: 'b.drawio', content: byte[]}]
// content は string (= UTF-8 でエンコード) または Java byte[] (= そのまま書き込み)
// バイナリファイル (.drawio 圧縮 XML / 画像 等) は byte[] で渡すこと
// 戻り値: byte[] (Java)
TFC.zip = function (entries) {
var baos = new ByteArrayOutputStream();
var zos = new ZipOutputStream(baos, Charset.forName('UTF-8'));
try {
for (var i = 0; i < entries.length; i++) {
var e = entries[i];
zos.putNextEntry(new ZipEntry(e.name));
var bytes;
// Java byte[] (= getClass().getName() === '[B') ならそのまま使う
if (e.content && typeof e.content === 'object' &&
e.content.getClass && e.content.getClass().getName() === '[B') {
bytes = e.content;
} else {
bytes = new JString(e.content).getBytes(Charset.forName('UTF-8'));
}
zos.write(bytes, 0, bytes.length);
zos.closeEntry();
}
} finally {
zos.close();
}
return baos.toByteArray();
};
// ============================================================
// Markdown テンプレート部品
// ============================================================
TFC.mdHeader = function (title) {
return '# ' + (title || '') + '\n\n';
};
TFC.mdSection = function (level, heading, body) {
var hashes = '';
for (var i = 0; i < (level || 2); i++) hashes += '#';
return hashes + ' ' + (heading || '') + '\n\n' + (body || '') + '\n';
};
TFC.mdKvTable = function (rows, lang) {
// rows: [[key, val], ...] / lang: 'ja' or 'en' (省略時は 'ja')
if (!rows || rows.length === 0) return '';
var head = '| ' + TFC.t('th.item', lang) + ' | ' + TFC.t('th.value', lang) + ' |\n|------|----|\n';
var s = head;
for (var i = 0; i < rows.length; i++) {
var k = TFC.escapeMd(rows[i][0]);
var v = TFC.escapeMd(rows[i][1] != null ? String(rows[i][1]) : '');
s += '| ' + k + ' | ' + v + ' |\n';
}
return s + '\n';
};
TFC.mdCodeBlock = function (lang, code) {
return '```' + (lang || '') + '\n' + (code || '') + '\n```\n\n';
};
// セル値を raw 扱い (escapeMd しない) でテーブルに埋め込むためのマーカー。
// inline HTML (... 等) を MD テーブルセルに入れたいときに使う。
TFC.mdRaw = function (s) { return { __mdRaw: true, value: String(s || '') }; };
// 任意列のテーブル: headers=['項目1','項目2',...], rows=[[v,v,...],[v,v,...]]
// セル値は文字列 (escapeMd 適用) または TFC.mdRaw(...) オブジェクト (raw 通過)
TFC.mdTable = function (headers, rows) {
if (!headers || headers.length === 0) return '';
var s = '|';
for (var h = 0; h < headers.length; h++) s += ' ' + TFC.escapeMd(headers[h]) + ' |';
s += '\n|';
for (var d = 0; d < headers.length; d++) s += '------|';
s += '\n';
if (rows) {
for (var r = 0; r < rows.length; r++) {
s += '|';
for (var c = 0; c < rows[r].length; c++) {
var cv = rows[r][c];
var v;
if (cv != null && typeof cv === 'object' && cv.__mdRaw) {
// raw: pipe だけは MD テーブルセル区切りと衝突するためエスケープ
v = String(cv.value).replace(/\|/g, '\\|').replace(/\r?\n/g, '
');
} else {
v = (cv != null ? String(cv) : '');
v = TFC.escapeMd(v).replace(/\r?\n/g, '
');
}
s += ' ' + v + ' |';
}
s += '\n';
}
}
return s + '\n';
};
// ============================================================
// ユーティリティ
// ============================================================
TFC.s = function (v) {
if (v == null) return '';
var s = String(v);
// NUM 系列の DB エンジン差を正規化:
// Oracle : "1"
// SQL Server / MySQL : "1.000000" (BigDecimal scale が CSV 取込時に保持される)
// → 整数化可能なら "1" に揃える。 比較 (=== '1') が DB 横断で動くようにする。
// 実数値 ("1.5" 等) は変更しない。
if (s.length > 2 && s.indexOf('.') > 0 && /^-?\d+\.0+$/.test(s)) {
return s.replace(/\.0+$/, '');
}
return s;
};
TFC.isEmpty = function (v) { return v == null || String(v).length === 0; };
TFC.coalesce = function () {
for (var i = 0; i < arguments.length; i++) {
if (!TFC.isEmpty(arguments[i])) return arguments[i];
}
return '';
};
// export
global.TFC = TFC;
return TFC;
})(this);
```
#### サーバJS ライブラリ: TLN_FUNC_TEST_JAVA (TLN_FUNC_TEST_JAVA)
```javascript
//
```
#### サーバJS ライブラリ: WCRG_COMMON (WCRG_共通クラス群)
```javascript
function createPoolRanking(_CND_DTYEAR, _CND_KBPOOL) {
var sql = "" +
"SELECT " +
" POINT_LIST.DTYEAR " +
", POINT_LIST.KBPOOL " +
", POINT_LIST.IDTEAM " +
", POINT_LIST.TXNAME " +
", SUM(POINT_LIST.POINT_SCORE) AS VLPOINT " +
", SUM(POINT_LIST.SCORE_M - POINT_LIST.SCORE_A) AS VLTOKUSITTEN " +
", SUM(POINT_LIST.VLTRYCNT_M - POINT_LIST.VLTRYCNT_A) AS VLTRYSASU " +
", SUM(POINT_LIST.SCORE_M) AS VLTOKUTEN " +
", SUM(POINT_LIST.VLTRYCNT_M) AS VLTRYSU " +
", WCRG_AT040.VLRANKW " +
", 0 AS VLWINPOINT " +
"FROM ( " +
" SELECT " +
" WCRG_V_LEAGUE_LIST.DTYEAR " +
" , WCRG_V_LEAGUE_LIST.KBPOOL " +
" , WCRG_V_LEAGUE_LIST.IDTEAM1 AS IDTEAM " +
" , WCRG_V_LEAGUE_LIST.TXNAME1 AS TXNAME " +
" , case when WCRG_V_LEAGUE_LIST.POINT_SCORE1 is null then 0 else WCRG_V_LEAGUE_LIST.POINT_SCORE1 end AS POINT_SCORE " +
" , WCRG_V_LEAGUE_LIST.SCORE1 AS SCORE_M " +
" , WCRG_V_LEAGUE_LIST.SCORE2 AS SCORE_A " +
" , WCRG_V_LEAGUE_LIST.VLTRYCNT1 AS VLTRYCNT_M " +
" , WCRG_V_LEAGUE_LIST.VLTRYCNT2 AS VLTRYCNT_A " +
" FROM WCRG_V_LEAGUE_LIST " +
" WHERE WCRG_V_LEAGUE_LIST.DTYEAR = '" + _CND_DTYEAR + "' " +
" AND WCRG_V_LEAGUE_LIST.KBPOOL = '" + _CND_KBPOOL + "' " +
" " +
" UNION ALL " +
" " +
" SELECT " +
" DTYEAR " +
" , KBPOOL " +
" , IDTEAM2 AS IDTEAM " +
" , TXNAME2 AS TXNAME " +
" , case when POINT_SCORE2 is null then 0 else POINT_SCORE2 end AS POINT_SCORE " +
" , WCRG_V_LEAGUE_LIST.SCORE2 AS SCORE_M " +
" , WCRG_V_LEAGUE_LIST.SCORE1 AS SCORE_A " +
" , WCRG_V_LEAGUE_LIST.VLTRYCNT2 AS VLTRYCNT_M " +
" , WCRG_V_LEAGUE_LIST.VLTRYCNT1 AS VLTRYCNT_A " +
" FROM WCRG_V_LEAGUE_LIST " +
" WHERE WCRG_V_LEAGUE_LIST.DTYEAR = '" + _CND_DTYEAR + "' " +
" AND WCRG_V_LEAGUE_LIST.KBPOOL = '" + _CND_KBPOOL + "' " +
") POINT_LIST " +
" " +
"LEFT OUTER JOIN WCRG_AT040 " +
" ON POINT_LIST.DTYEAR = WCRG_AT040.DTYEAR " +
" AND POINT_LIST.IDTEAM = WCRG_AT040.IDTEAM " +
" " +
"GROUP BY " +
" POINT_LIST.DTYEAR " +
", POINT_LIST.KBPOOL " +
", POINT_LIST.IDTEAM " +
", POINT_LIST.TXNAME " +
", WCRG_AT040.VLRANKW " +
" " +
"ORDER BY " +
" POINT_LIST.DTYEAR " +
", POINT_LIST.KBPOOL " +
", SUM(POINT_LIST.POINT_SCORE) DESC " +
", SUM(POINT_LIST.SCORE_M - POINT_LIST.SCORE_A) DESC " +
", SUM(POINT_LIST.VLTRYCNT_M - POINT_LIST.VLTRYCNT_A) DESC " +
", SUM(POINT_LIST.SCORE_M) DESC " +
", SUM(POINT_LIST.VLTRYCNT_M) DESC " +
", WCRG_AT040.VLRANKW " +
" ";
var itemSelectListMain = TalonDbUtil.select( TALON.getDbConfig() , sql );
var itemSelectListSub = itemSelectListMain;
for (var iMain = 0; iMain < itemSelectListMain.length; iMain++) {
var lineDataMapMain = itemSelectListMain[iMain];
var _DTYEAR = lineDataMapMain['DTYEAR'];
var _KBPOOL = lineDataMapMain['KBPOOL'];
var _M_IDTEAM = lineDataMapMain['IDTEAM'];
var _M_TXNAME = lineDataMapMain['TXNAME'];
var _M_VLPOINT = lineDataMapMain['VLPOINT'];
var _M_VLTOKUSITTEN = lineDataMapMain['VLTOKUSITTEN'];
var _M_VLTRYSASU = lineDataMapMain['VLTRYSASU'];
var _M_VLTOKUTEN = lineDataMapMain['VLTOKUTEN'];
var _M_VLTRYSU = lineDataMapMain['VLTRYSU'];
var _M_VLRANKW = lineDataMapMain['VLPOINT'];
var _M_VLWINPOINT = 0;
for (var iSub = 0; iSub < itemSelectListSub.length; iSub++) {
var lineDataMapSub = itemSelectListSub[iMain];
var _S_IDTEAM = lineDataMapSub['IDTEAM'];
var _S_VLPOINT = lineDataMapSub['VLPOINT'];
if (_M_VLPOINT == _S_VLPOINT) {
_M_VLWINPOINT = _M_VLWINPOINT + getWinPoint(_DTYEAR, _KBPOOL, _M_IDTEAM, _S_IDTEAM);
}
}
lineDataMapMain['VLWINPOINT'] = _M_VLWINPOINT;
var sql = "" +
"INSERT INTO WCRG_WK020 ( " +
" DTYEAR " +
" , KBPOOL " +
" , IDTEAM " +
" , TXNAME " +
" , VLPOINT " +
" , VLWINPOINT " +
" , VLTOKUSITTEN " +
" , VLTRYSASU " +
" , VLTOKUTEN " +
" , VLTRYSU " +
" , VLRANKW " +
") VALUES ( " +
" '" + _DTYEAR + "'" +
" , '" + _KBPOOL + "'" +
" , '" + _M_IDTEAM + "'" +
" , '" + _M_TXNAME + "'" +
" , " + _M_VLPOINT + " " +
" , " + _M_VLWINPOINT + " " +
" , " + _M_VLTOKUSITTEN + " " +
" , " + _M_VLTRYSASU + " " +
" , " + _M_VLTOKUTEN + " " +
" , " + _M_VLTRYSU + " " +
" , " + _M_VLRANKW + " " +
") " +
" ";
var insertCount = TalonDbUtil.insert( TALON.getDbConfig() , sql );
}
var sql = "" +
"SELECT " +
" DTYEAR " +
", KBPOOL " +
", IDTEAM " +
", TXNAME " +
", VLPOINT " +
", VLWINPOINT " +
", VLTOKUSITTEN " +
", VLTRYSASU " +
", VLTOKUTEN " +
", VLTRYSU " +
", VLRANKW " +
", VLRANKNUMBER " +
"FROM WCRG_WK020 " +
"ORDER BY " +
" VLPOINT " +
", VLWINPOINT " +
", VLTOKUSITTEN " +
", VLTRYSASU " +
", VLTOKUTEN " +
", VLTRYSU " +
", VLRANKW " +
" ";
for (var iMain = 0; iMain < itemSelectListMain.length; iMain++) {
var lineDataMapMain = itemSelectListMain[iMain];
var _DTYEAR = lineDataMapMain['DTYEAR'];
var _KBPOOL = lineDataMapMain['KBPOOL'];
var _M_IDTEAM = lineDataMapMain['IDTEAM'];
var sql = "" +
"UPDATE WCRG_WK020 SET " +
" VLRANKNUMBER = " + (iMain + 1) + " " +
"WHERE DTYEAR = '" + _DTYEAR + "'" +
" AND KBPOOL = '" + _KBPOOL + "'" +
" AND IDTEAM = '" + _M_IDTEAM + "'" +
" ";
var updateCount = TalonDbUtil.update( TALON.getDbConfig() , sql );
}
}
function getWinPoint(_DTYEAR, _KBPOOL, _M_IDTEAM, _S_IDTEAM) {
var sql = "" +
"SELECT " +
"WINPTN " +
"FROM ( " +
" SELECT " +
" case when ( (case when SCORE1 is null then 0 else SCORE1 end) > (case when SCORE2 is null then 0 else SCORE2 end) ) then 1 else 0 end AS WINPTN " +
" FROM WCRG_V_LEAGUE_LIST " +
" WHERE DTYEAR = '2019' " +
" AND KBPOOL = 'PL-A' " +
" AND IDTEAM1 = 'TM10' " +
" AND IDTEAM2 = 'TM13' " +
" " +
" UNION ALL " +
" " +
" SELECT " +
" case when ( (case when SCORE2 is null then 0 else SCORE2 end) > (case when SCORE1 is null then 0 else SCORE1 end) ) then 1 else 0 end AS WINPTN " +
" FROM WCRG_V_LEAGUE_LIST " +
" WHERE DTYEAR = '2019' " +
" AND KBPOOL = 'PL-A' " +
" AND IDTEAM1 = 'TM13' " +
" AND IDTEAM2 = 'TM10' " +
") MN " +
" ";
var itemSelectListPoint = TalonDbUtil.select( TALON.getDbConfig() , sql );
if (itemSelectListPoint.length == 0 ) {
var _WINPTN = 0;
} else {
var lineDataMapPoint = itemSelectListPoint[0];
var _WINPTN = lineDataMapPoint['WINPTN'];
}
return _WINPTN;
}
// -----------------------------------------------------------------------------
function createTournamentList(_CND_DTYEAR){
//準々決勝：プール戦結果
var sql = "" +
"SELECT " +
" WCRG_AT030.DTYEAR " +
", WCRG_AT030.SQTMATCH " +
", WCRG_AT030.SQTMATCHUP " +
", WCRG_AT030.VLWAKU " +
", WCRG_WK020_1.IDTEAM AS IDTEAM1 " +
", WCRG_WK020_1.TXNAME AS TXNAME1 " +
", WCRG_WK020_2.IDTEAM AS IDTEAM2 " +
", WCRG_WK020_2.TXNAME AS TXNAME2 " +
"FROM WCRG_AT030 " +
"LEFT OUTER JOIN WCRG_WK020 WCRG_WK020_1 " +
" ON WCRG_AT030.DTYEAR = WCRG_WK020_1.DTYEAR " +
" AND WCRG_AT030.KBPOOL1 = WCRG_WK020_1.KBPOOL " +
" AND WCRG_WK020_1.VLRANKNUMBER = 1 " +
"LEFT OUTER JOIN WCRG_WK020 WCRG_WK020_2 " +
" ON WCRG_AT030.DTYEAR = WCRG_WK020_2.DTYEAR " +
" AND WCRG_AT030.KBPOOL2 = WCRG_WK020_2.KBPOOL " +
" AND WCRG_WK020_2.VLRANKNUMBER = 2 " +
"WHERE WCRG_AT030.KBPOOL1 IS NOT NULL "
" AND WCRG_AT030.DTYEAR = '" + _CND_DTYEAR + "' ";
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig() , sql );
for (var i = 0; i < itemSelectList.length; i++) {
var lineDataMap = itemSelectList[i];
insertWCRG_WK030(lineDataMap['DTYEAR'], lineDataMap['SQTMATCH'], lineDataMap['IDTEAM1'], lineDataMap['TXNAME1'], lineDataMap['IDTEAM2'], lineDataMap['TXNAME2']) ;
}
//準決勝：準々決勝結果(勝)
var sql = selectWCRG_WK030(_CND_DTYEAR, 2, 0);
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig() , sql );
for (var i = 0; i < itemSelectList.length; i++) {
var lineDataMap = itemSelectList[i];
insertWCRG_WK030(lineDataMap['DTYEAR'], lineDataMap['SQTMATCH'], lineDataMap['IDTEAM1'], lineDataMap['TXNAME1'], lineDataMap['IDTEAM2'], lineDataMap['TXNAME2']) ;
}
//決勝：準決勝結果(勝)
var sql = selectWCRG_WK030(_CND_DTYEAR, 0, 0);
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig() , sql );
for (var i = 0; i < itemSelectList.length; i++) {
var lineDataMap = itemSelectList[i];
insertWCRG_WK030(lineDataMap['DTYEAR'], lineDataMap['SQTMATCH'], lineDataMap['IDTEAM1'], lineDataMap['TXNAME1'], lineDataMap['IDTEAM2'], lineDataMap['TXNAME2']) ;
}
//3位決定戦：準決勝結果(負)
var sql = selectWCRG_WK030(_CND_DTYEAR, 1, 1);
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig() , sql );
for (var i = 0; i < itemSelectList.length; i++) {
var lineDataMap = itemSelectList[i];
insertWCRG_WK030(lineDataMap['DTYEAR'], lineDataMap['SQTMATCH'], lineDataMap['IDTEAM1'], lineDataMap['TXNAME1'], lineDataMap['IDTEAM2'], lineDataMap['TXNAME2']) ;
}
}
/*
_VLLEVEL 参照する階層
_KBN 0:勝者チーム 1:敗者チーム
*/
function selectWCRG_WK030(_DTYEAR, _VLLEVEL, _KBN) {
var sql = "";
//３位決定戦の場合、決勝の負けを取得
if (_VLLEVEL == 1) {
sql = sql + "" +
"SELECT DTYEAR, SQTMATCH FROM WCRG_AT030 " +
"WHERE WCRG_AT030.DTYEAR = '" + _DTYEAR + "' " +
" AND WCRG_AT030.VLLEVEL= " + _VLLEVEL + " "
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig() , sql );
var lineDataMap = itemSelectList[0];
var _SQTMATCH = lineDataMap['SQTMATCH'];
}
var sql = "";
if (_VLLEVEL == 1) {
sql = sql + "" +
"SELECT " +
" " +
" WCRG_AT030.DTYEAR " +
", '" + _SQTMATCH + "' as SQTMATCH " +
" ";
_VLLEVEL = 0;
} else {
sql = sql + "" +
"SELECT " +
" " +
" WCRG_AT030.DTYEAR " +
", WCRG_AT030.SQTMATCH " +
" ";
}
if (_KBN == 1) {
//３位決定戦 ： 敗者を取得
sql = sql + "" +
", CASE " +
" WHEN WCRG_AT030_KEKKA1.ALLSCORE1>WCRG_AT030_KEKKA1.ALLSCORE2 THEN WCRG_AT030_KEKKA1.IDTEAM2 " +
" WHEN WCRG_AT030_KEKKA1.ALLSCORE1WCRG_AT030_KEKKA1.ALLSCORE2 THEN WCRG_AT030_KEKKA1.TXNAME2 " +
" WHEN WCRG_AT030_KEKKA1.ALLSCORE1WCRG_AT030_KEKKA2.ALLSCORE2 THEN WCRG_AT030_KEKKA2.IDTEAM2 " +
" WHEN WCRG_AT030_KEKKA2.ALLSCORE1WCRG_AT030_KEKKA2.ALLSCORE2 THEN WCRG_AT030_KEKKA2.TXNAME2 " +
" WHEN WCRG_AT030_KEKKA2.ALLSCORE1WCRG_AT030_KEKKA1.ALLSCORE2 THEN WCRG_AT030_KEKKA1.IDTEAM1 " +
" WHEN WCRG_AT030_KEKKA1.ALLSCORE1WCRG_AT030_KEKKA1.ALLSCORE2 THEN WCRG_AT030_KEKKA1.TXNAME1 " +
" WHEN WCRG_AT030_KEKKA1.ALLSCORE1WCRG_AT030_KEKKA2.ALLSCORE2 THEN WCRG_AT030_KEKKA2.IDTEAM1 " +
" WHEN WCRG_AT030_KEKKA2.ALLSCORE1WCRG_AT030_KEKKA2.ALLSCORE2 THEN WCRG_AT030_KEKKA2.TXNAME1 " +
" WHEN WCRG_AT030_KEKKA2.ALLSCORE1= " + tln_com_escape( _TRG_LVL ) + ""
);
}
//-------------------------------------------
function selectWFS_T_WORKFLOW_CURENT_DATA(_WORK_ID,_OBJECT_ID) {
//承認者も取得する（連続承認者の時の承認省略に使用→and承認の場合は発動しない為MAXで取得）
var sql =
"SELECT " +
" COUNT(*) AS CURENT_DATA_CNT " +
" ,MAX(SHONIN_ID) AS SHONIN_ID " +
"FROM WFS_T_WORKFLOW " +
"WHERE WORK_ID = '" + tln_com_escape( _WORK_ID ) + "'" +
" AND OBJECT_ID = '" + tln_com_escape( _OBJECT_ID ) + "'" +
" AND CURENT_FLG = '1'"
;
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), sql);
return itemSelectList;
}
//-------------------------------------------
function selectWFS_T_WORKFLOW_CURENT_MY_DATA(_WORK_ID,_OBJECT_ID,_EXEC_BY) {
var sql =
"SELECT " +
" COUNT(*) AS MY_DATA_CNT " +
"FROM WFS_T_WORKFLOW " +
"WHERE WORK_ID = '" + tln_com_escape( _WORK_ID ) + "'" +
" AND OBJECT_ID = '" + tln_com_escape( _OBJECT_ID ) + "'" +
" AND SHONIN_ID = '" + tln_com_escape( _EXEC_BY ) + "'" +
" AND CURENT_FLG = '1'" +
" AND STATUS <> '4'"
;
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), sql);
return itemSelectList;
}
//-------------------------------------------
//取戻時、対象のレベルを取得
function selectWFS_T_WORKFLOW_MY_LVL_BACK(_WORK_ID,_ROUTE_ID,_NOW_LVL,_SHONIN_ID) {
var sql =
"SELECT " +
" WFS_M_AUTH.WORK_ID " +
" ,WFS_M_AUTH.ROUTE_ID " +
" ,MAX(WFS_M_AUTH.LVL) AS LVL " +
"FROM WFS_M_AUTH " +
"INNER JOIN WFS_M_USR_GRP_DEPDTL " +
" ON WFS_M_AUTH.USR_GRP_ID = WFS_M_USR_GRP_DEPDTL.USR_GRP_ID " +
" AND ( " +
" WFS_M_USR_GRP_DEPDTL.USR_ID = '" + tln_com_escape( _SHONIN_ID ) + "' " +
" OR " +
" 1 = (SELECT CASE WHEN ADMIN_USER_ID IS NULL THEN 0 ELSE 1 END FROM WFS_M_USR_ADMIN WHERE ADMIN_USER_ID = '" + tln_com_escape( _SHONIN_ID ) + "' ) " +
" ) " +
"WHERE WFS_M_AUTH.WORK_ID = '" + tln_com_escape( _WORK_ID ) + "' " +
" AND WFS_M_AUTH.ROUTE_ID = '" + tln_com_escape( _ROUTE_ID ) + "' " +
" AND WFS_M_AUTH.LVL <= " + tln_com_escape( _NOW_LVL ) + " -1 " +
"GROUP BY " +
" WFS_M_AUTH.WORK_ID " +
" ,WFS_M_AUTH.ROUTE_ID "
;
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), sql);
return itemSelectList;
}
//引上げ時、対象のレベルを取得
function selectWFS_T_WORKFLOW_MY_LVL_PLUP(_WORK_ID,_ROUTE_ID,_NOW_LVL,_SHONIN_ID) {
var sql =
"SELECT " +
" WFS_M_AUTH.WORK_ID " +
" ,WFS_M_AUTH.ROUTE_ID " +
" ,MIN(WFS_M_AUTH.LVL) AS LVL " +
"FROM WFS_M_AUTH " +
"INNER JOIN WFS_M_USR_GRP_DEPDTL " +
" ON WFS_M_AUTH.USR_GRP_ID = WFS_M_USR_GRP_DEPDTL.USR_GRP_ID " +
" AND ( " +
" WFS_M_USR_GRP_DEPDTL.USR_ID = '" + tln_com_escape( _SHONIN_ID ) + "' " +
" OR " +
" 1 = (SELECT CASE WHEN ADMIN_USER_ID IS NULL THEN 0 ELSE 1 END FROM WFS_M_USR_ADMIN WHERE ADMIN_USER_ID = '" + tln_com_escape( _SHONIN_ID ) + "' ) " +
" ) " +
"WHERE WFS_M_AUTH.WORK_ID = '" + tln_com_escape( _WORK_ID ) + "' " +
" AND WFS_M_AUTH.ROUTE_ID = '" + tln_com_escape( _ROUTE_ID ) + "' " +
" AND WFS_M_AUTH.LVL > " + tln_com_escape( _NOW_LVL ) + " " +
"GROUP BY " +
" WFS_M_AUTH.WORK_ID " +
" ,WFS_M_AUTH.ROUTE_ID "
;
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), sql);
return itemSelectList;
}
//-------------------------------------------
//承認者連続時省略フラグ制御用、同一ルートで承認者が承認可能なリスト
function selectWFS_T_WORKFLOW_APPROVAL(_WORK_ID,_ROUTE_ID,_LVL,_SHONIN_ID, _OBJECT_ID, _LOGIN_USER_ID) {
//承認者も取得する（連続承認者の時の承認省略に使用→and承認の場合は発動しない為MAXで取得）
var sql =
"SELECT " +
" WFS_M_CONTROL.WORK_ID " +
" ,WFS_M_CONTROL.WORK_NM " +
" ,WFS_M_AUTH.ROUTE_ID " +
" ,WFS_M_AUTH.LVL " +
" ,WFS_M_USR_GRP_DEPDTL.USR_GRP_ID " +
" ,WFS_M_USR_GRP_DEPDTL.USR_ID " +
" ,CASE WHEN WFS_M_LEVEL.SYONIN_PTN IS NOT NULL THEN WFS_M_LEVEL.SYONIN_PTN ELSE WFS_M_AUTH.SYONIN_PTN END AS SYONIN_PTN " +
"FROM WFS_M_CONTROL " +
"INNER JOIN WFS_M_AUTH " +
" ON WFS_M_CONTROL.WORK_ID = WFS_M_AUTH.WORK_ID " +
" AND '" + _ROUTE_ID + "' = WFS_M_AUTH.ROUTE_ID " +
" AND " + _LVL + " <= WFS_M_AUTH.LVL " +
"INNER JOIN WFS_M_USR_GRP_DEPDTL " +
" ON WFS_M_AUTH.USR_GRP_ID = WFS_M_USR_GRP_DEPDTL.USR_GRP_ID " +
" AND '" + _SHONIN_ID + "' = WFS_M_USR_GRP_DEPDTL.USR_ID " +
"LEFT OUTER JOIN WFS_M_LEVEL " +
" ON WFS_M_AUTH.WORK_ID = WFS_M_LEVEL.WORK_ID " +
" AND WFS_M_AUTH.LVL = WFS_M_LEVEL.LVL " +
" " +
"LEFT OUTER JOIN ( " +
" SELECT " +
" WORK_ID " +
" ,OBJECT_ID " +
" ,LVL " +
" ,COUNT(*) AS CNT " +
" FROM WFS_T_WORKAPPROVALRES " +
" GROUP BY " +
" WORK_ID " +
" ,OBJECT_ID " +
" ,LVL " +
") WFS_T_WORKAPPROVALRES_CNT " +
" ON WFS_M_AUTH.WORK_ID = WFS_T_WORKAPPROVALRES_CNT.WORK_ID " +
" AND '" + _OBJECT_ID + "' = WFS_T_WORKAPPROVALRES_CNT.OBJECT_ID " +
" AND WFS_M_AUTH.LVL = WFS_T_WORKAPPROVALRES_CNT.LVL " +
" " +
"LEFT OUTER JOIN WFS_T_WORKAPPROVALRES " +
" ON WFS_M_AUTH.WORK_ID = WFS_T_WORKAPPROVALRES.WORK_ID " +
" AND '" + _OBJECT_ID + "' = WFS_T_WORKAPPROVALRES.OBJECT_ID " +
" AND WFS_M_AUTH.LVL = WFS_T_WORKAPPROVALRES.LVL " +
" AND WFS_M_USR_GRP_DEPDTL.USR_ID = WFS_T_WORKAPPROVALRES.USR_ID " +
" AND ( " +
" WFS_T_WORKAPPROVALRES.USR_ID = '" + tln_com_escape( _LOGIN_USER_ID ) + "' " +
" OR " +
" WFS_T_WORKAPPROVALRES.USR_ID IN (SELECT USR_ID FROM WFS_M_USR_DAIRI WHERE DAIRI_USR_ID = '" + tln_com_escape( _LOGIN_USER_ID ) + "' AND YUKO_KBN = '1' AND SHONIN_FLG = '1') " +
" ) " +
" " +
"WHERE WFS_M_CONTROL.WORK_ID = '" + tln_com_escape( _WORK_ID ) + "' " +
" AND WFS_M_CONTROL.APPROVAL_FLG = '1' " +
" AND ( " +
" WFS_T_WORKAPPROVALRES_CNT.CNT IS NULL " +
" OR " +
" WFS_T_WORKAPPROVALRES_CNT.CNT = 0 " +
" OR " +
" ( " +
" WFS_T_WORKAPPROVALRES_CNT.CNT IS NOT NULL " +
" AND " +
" WFS_T_WORKAPPROVALRES.WORK_ID IS NOT NULL " +
" ) " +
" ) " +
"ORDER BY LVL "
;
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), sql);
return itemSelectList;
}
function updateWFS_T_WORKFLOW_STATUS(_WORK_ID, _OBJECT_ID, _STATUS, _STEP, _RES_MEMO, _SHONIN_ID) {
TalonDbUtil.update( TALON.getDbConfig(),
"update WFS_T_WORKFLOW set " +
" STATUS = '" + tln_com_escape( _STATUS ) + "' " +
" ,RES_MEMO = '" + tln_com_escape( _RES_MEMO ) + "' " +
" ,SHONIN_ID = '" + tln_com_escape( _SHONIN_ID ) + "' " +
"where WORK_ID = '" + tln_com_escape( _WORK_ID ) + "' " +
" and OBJECT_ID = '" + tln_com_escape( _OBJECT_ID ) + "' " +
" and STEP = '" + tln_com_escape( _STEP ) + "' "
);
}
function execWorkFlow() {
//入力値取得
var itemBlockListHed = TALON.getBlockData_List(1);
var lineDataMap = itemBlockListHed[0];
return execWorkFlowMain(lineDataMap);
}
var _WFS_SYORI_KBN_SHINSEI = '10'; //申請
var _WFS_SYORI_KBN_SHONIN = '20'; //承認（次階層あり）
var _WFS_SYORI_KBN_KESSAI = '21'; //承認（次階層なし＝決裁）
var _WFS_SYORI_KBN_SASHIMODOSHI = '30'; //差戻
var _WFS_SYORI_KBN_HININ = '90'; //否認
var _WFS_SYORI_KBN_TORIMODOSHIS = '50'; //取戻（申請者取戻）
var _WFS_SYORI_KBN_TORIKESHI = '60'; //取消
var _WFS_SYORI_KBN_TORIMODOSHIS = '70'; //取戻（承認者取戻）
var _WFS_SYORI_KBN_HIKIAGE = '80'; //引上
function execWorkFlowMain(lineDataMap) {
//入力値取得
//var itemBlockListHed = TALON.getBlockData_List(1);
//var lineDataMap = itemBlockListHed[0];
var lineUserDataMap = TALON.getUserInfoMap();
var _LOGIN_USER_ID = getMapVal( lineUserDataMap , 'USER_ID' );
//承認結果が申請の場合
if (getMapVal( lineDataMap , 'STATUS' ) == '1') {
//階層テーブルにて次のレベルが存在するかチェック
var itemSelectList = selectWFS_M_LEVEL_NEXTPRE( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'ROUTE_ID' ), getMapVal( lineDataMap , 'LVL' ), '1');
if (itemSelectList.length > 0) {
var lineSelectDataMap = itemSelectList[0];
var _NX_LVL = getMapVal( lineSelectDataMap , 'LVL' );
//次期対象以外のCURENT_FLGを０に更新
updateWFS_T_WORKFLOW_CURENT_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ));
//データありの場合のみ 次レコード作成
var itemDataList = new Array();
setMapVal( itemDataList , 'WORK_ID' , getMapVal( lineDataMap , 'WORK_ID' ) );
setMapVal( itemDataList , 'OBJECT_ID' , getMapVal( lineDataMap , 'OBJECT_ID' ) );
setMapVal( itemDataList , 'STEP' , parseInt( getMapVal( lineDataMap , 'STEP' ) + 1 ) );
setMapVal( itemDataList , 'OBJECT_NM' , getMapVal( lineDataMap , 'OBJECT_NM' ) );
setMapVal( itemDataList , 'ROUTE_ID' , getMapVal( lineDataMap , 'ROUTE_ID' ) );
setMapVal( itemDataList , 'USR_ID' , getMapVal( lineDataMap , 'USR_ID' ) );
setMapVal( itemDataList , 'STATUS' , '4' );
setMapVal( itemDataList , 'LVL' , _NX_LVL );
setMapVal( itemDataList , 'APP_MEMO' , getMapVal( lineDataMap , 'APP_MEMO' ) );
setMapVal( itemDataList , 'CURENT_FLG' , '1' );
insertWFS_T_WORKFLOW(itemDataList);
execWorkFlowCustom(getMapVal( lineDataMap , 'WORK_ID' ) , getMapVal( lineDataMap , 'OBJECT_ID' ) , _WFS_SYORI_KBN_SHINSEI);
}
}
//承認結果が取戻の場合（申請者が取り戻す）
if ( getMapVal( lineDataMap , 'STATUS' ) == '5' ) {
//次期対象以外のCURENT_FLGを０に更新
updateWFS_T_WORKFLOW_CURENT_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ) );
//申請者に戻すのでLVLが１以上のデータのACTIVE_FLGをゼロに更新(18/08/07)
updateWFS_T_WORKFLOW_ACTIVE_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID'), 1 );
//データありの場合のみ 次レコード作成
var itemDataList = new Array();
setMapVal( itemDataList , 'WORK_ID' , getMapVal( lineDataMap , 'WORK_ID' ) );
setMapVal( itemDataList , 'OBJECT_ID' , getMapVal( lineDataMap , 'OBJECT_ID' ) );
setMapVal( itemDataList , 'STEP' , parseInt( getMapVal( lineDataMap , 'STEP' ) + 1 ) );
setMapVal( itemDataList , 'OBJECT_NM' , getMapVal( lineDataMap , 'OBJECT_NM' ) );
setMapVal( itemDataList , 'ROUTE_ID' , getMapVal( lineDataMap , 'ROUTE_ID' ) );
setMapVal( itemDataList , 'USR_ID' , getMapVal( lineDataMap , 'USR_ID' ) );
setMapVal( itemDataList , 'STATUS' , '4' );
setMapVal( itemDataList , 'LVL' , 1 );
setMapVal( itemDataList , 'APP_MEMO' , '' );
setMapVal( itemDataList , 'CURENT_FLG' , '1' );
insertWFS_T_WORKFLOW(itemDataList);
execWorkFlowCustom(getMapVal( lineDataMap , 'WORK_ID' ) , getMapVal( lineDataMap , 'OBJECT_ID' ) , _WFS_SYORI_KBN_TORIMODOSHIS);
}
//承認結果が取戻の場合（承認者が取り戻す）
if ( getMapVal( lineDataMap , 'STATUS' ) == '7' ) {
//次期対象以外のCURENT_FLGを０に更新
updateWFS_T_WORKFLOW_CURENT_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ) );
////取戻時、対象のレベルを取得
var itemSelectList = selectWFS_T_WORKFLOW_MY_LVL_BACK( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'ROUTE_ID' ), getMapVal( lineDataMap , 'LVL' ), tln_com_user_id() );
var lineSelectDataMap = itemSelectList[0];
var _MY_LVL = getMapVal( lineSelectDataMap , 'LVL' );
//指定したレベルまで戻すのでLVLがその値以上のデータのACTIVE_FLGをゼロに更新(18/08/07)
updateWFS_T_WORKFLOW_ACTIVE_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID'), _MY_LVL );
//データありの場合のみ 次レコード作成
var itemDataList = new Array();
setMapVal( itemDataList , 'WORK_ID' , getMapVal( lineDataMap , 'WORK_ID' ) );
setMapVal( itemDataList , 'OBJECT_ID' , getMapVal( lineDataMap , 'OBJECT_ID' ) );
setMapVal( itemDataList , 'STEP' , parseInt( getMapVal( lineDataMap , 'STEP' ) + 1 ) );
setMapVal( itemDataList , 'OBJECT_NM' , getMapVal( lineDataMap , 'OBJECT_NM' ) );
setMapVal( itemDataList , 'ROUTE_ID' , getMapVal( lineDataMap , 'ROUTE_ID' ) );
setMapVal( itemDataList , 'USR_ID' , getMapVal( lineDataMap , 'USR_ID' ) );
setMapVal( itemDataList , 'STATUS' , '4' );
setMapVal( itemDataList , 'LVL' , _MY_LVL );
setMapVal( itemDataList , 'APP_MEMO' , '' );
setMapVal( itemDataList , 'CURENT_FLG' , '1' );
insertWFS_T_WORKFLOW(itemDataList);
execWorkFlowCustom(getMapVal( lineDataMap , 'WORK_ID' ) , getMapVal( lineDataMap , 'OBJECT_ID' ) , _WFS_SYORI_KBN_TORIMODOSHIS);
}
//承認結果が引上げの場合（承認者が引き上げる）
if ( getMapVal( lineDataMap , 'STATUS' ) == '8' ) {
//次期対象以外のCURENT_FLGを０に更新
updateWFS_T_WORKFLOW_CURENT_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ) );
////引上時、対象のレベルを取得
var itemSelectList = selectWFS_T_WORKFLOW_MY_LVL_PLUP( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'ROUTE_ID' ), getMapVal( lineDataMap , 'LVL' ), tln_com_user_id() );
var lineSelectDataMap = itemSelectList[0];
var _MY_LVL = getMapVal( lineSelectDataMap , 'LVL' );
//データありの場合のみ 次レコード作成
var itemDataList = new Array();
setMapVal( itemDataList , 'WORK_ID' , getMapVal( lineDataMap , 'WORK_ID' ) );
setMapVal( itemDataList , 'OBJECT_ID' , getMapVal( lineDataMap , 'OBJECT_ID' ) );
setMapVal( itemDataList , 'STEP' , parseInt( getMapVal( lineDataMap , 'STEP' ) + 1 ) );
setMapVal( itemDataList , 'OBJECT_NM' , getMapVal( lineDataMap , 'OBJECT_NM' ) );
setMapVal( itemDataList , 'ROUTE_ID' , getMapVal( lineDataMap , 'ROUTE_ID' ) );
setMapVal( itemDataList , 'USR_ID' , getMapVal( lineDataMap , 'USR_ID' ) );
setMapVal( itemDataList , 'STATUS' , '4' );
setMapVal( itemDataList , 'LVL' , _MY_LVL );
setMapVal( itemDataList , 'APP_MEMO' , '' );
setMapVal( itemDataList , 'CURENT_FLG' , '1' );
insertWFS_T_WORKFLOW(itemDataList);
execWorkFlowCustom(getMapVal( lineDataMap , 'WORK_ID' ) , getMapVal( lineDataMap , 'OBJECT_ID' ) , _WFS_SYORI_KBN_HIKIAGE);
}
//承認、差戻、否認の処理で対象階層がAND承認の場合、すでに同一承認者で処理されていればエラーとする。
if (
( getMapVal( lineDataMap , 'STATUS' ) == '2') ||
( getMapVal( lineDataMap , 'STATUS' ) == '3') ||
( getMapVal( lineDataMap , 'STATUS' ) == '9')
) {
var itemSelectList = selectWFS_M_LEVEL( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'LVL' ), getMapVal( lineDataMap , 'ROUTE_ID' ) );
var lineSelectDataMap = itemSelectList[0];
var _SYONIN_PTN = getMapVal( lineSelectDataMap , 'SYONIN_PTN' );
if (_SYONIN_PTN == '2') {
//同一ユーザーで既に当サイクルで承認されている場合はエラーとする
//→同一ユーザーを同一承認者ID(SHONIN_ID)で判断するようにする
var itemSelectList = selectWFS_T_WORKFLOW_CURENT_MY_DATA( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ), getMapVal( lineDataMap , 'SHONIN_ID' ) );
var lineSelectDataMap = itemSelectList[0];
var _MY_DATA_CNT = getMapVal( lineSelectDataMap , 'MY_DATA_CNT' );
//ここまでの処理で１件は登録されている為
if ( _MY_DATA_CNT != 1 ) {
TALON.addErrorMsg( "既に指定された承認者で「承認／差戻／否認」処理が実施されている為、実行する事は出来ません。" );
TALON.setIsSuccess(false);
return false;
}
}
}
//承認結果が承認の場合
if ( getMapVal( lineDataMap , 'STATUS' ) == '2') {
var next_flg = '0';
var itemSelectList = selectWFS_M_LEVEL( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'LVL' ), getMapVal( lineDataMap , 'ROUTE_ID' ) );
var lineSelectDataMap = itemSelectList[0];
var _SYONIN_PTN = getMapVal( lineSelectDataMap , 'SYONIN_PTN' );
var itemSelectList = selectWFS_T_WORKFLOW_CURENT_DATA( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ) );
var lineSelectDataMap = itemSelectList[0];
var _CURENT_DATA_CNT = getMapVal( lineSelectDataMap , 'CURENT_DATA_CNT' );
var _SHONIN_ID = getMapVal( lineSelectDataMap , 'SHONIN_ID' );
var itemSelectList = selectWFS_M_AUTH_TANTO_CNT( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'LVL' ), getMapVal( lineDataMap , 'ROUTE_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ) );
var lineSelectDataMap = itemSelectList[0];
var _TANTO_CNT = getMapVal( lineSelectDataMap , 'TANTO_CNT' );
if (_SYONIN_PTN == '1') {
next_flg = '1';
}
if (_SYONIN_PTN == '2') {
// * 上位でチェックするのでここでは実施しない
// * -------------------------------------------
// * //同一ユーザーで既に当サイクルで承認されている場合はエラーとする →同一ユーザーを同一承認者ID(SHONIN_ID)で判断するようにする
// * var lineUserDataMap = TALON.getUserInfoMap();
// * var _LOGIN_USER_ID = getMapVal( lineUserDataMap , 'USER_ID' );
// *
// * //var itemSelectList = selectWFS_T_WORKFLOW_CURENT_MY_DATA( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ), _LOGIN_USER_ID );
// * var itemSelectList = selectWFS_T_WORKFLOW_CURENT_MY_DATA( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ), getMapVal( lineDataMap , 'SHONIN_ID' ) );
// * var lineSelectDataMap = itemSelectList[0];
// * var _MY_DATA_CNT = getMapVal( lineSelectDataMap , 'MY_DATA_CNT' );
// *
// * //ここまでの処理で１件は登録されている為
// * if ( _MY_DATA_CNT != 1 ) {
// * TALON.addErrorMsg( "既に指定された承認者で「承認」処理が実施されている為、実行する事は出来ません。" );
// * TALON.setIsSuccess(false);
// *
// * return false;
// * }
if (_CURENT_DATA_CNT >= _TANTO_CNT) {
next_flg = '1';
}
}
if (next_flg == '1') {
//階層テーブルにて次のレベルが存在するかチェック
var itemSelectList = selectWFS_M_LEVEL_NEXTPRE( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'ROUTE_ID' ), getMapVal( lineDataMap , 'LVL' ), '1');
if (itemSelectList.length > 0) {
var lineSelectDataMap = itemSelectList[0];
var _NX_LVL = getMapVal( lineSelectDataMap , 'LVL' );
//次期対象以外のCURENT_FLGを０に更新
updateWFS_T_WORKFLOW_CURENT_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ) );
//データありの場合のみ 次レコード作成
var itemDataList = new Array();
setMapVal( itemDataList , 'WORK_ID' , getMapVal( lineDataMap , 'WORK_ID' ) );
setMapVal( itemDataList , 'OBJECT_ID' , getMapVal( lineDataMap , 'OBJECT_ID' ) );
setMapVal( itemDataList , 'STEP' , parseInt( getMapVal( lineDataMap , 'STEP' ) + 1) );
setMapVal( itemDataList , 'OBJECT_NM' , getMapVal( lineDataMap , 'OBJECT_NM' ) );
setMapVal( itemDataList , 'ROUTE_ID' , getMapVal( lineDataMap , 'ROUTE_ID' ) );
setMapVal( itemDataList , 'USR_ID' , getMapVal( lineDataMap , 'USR_ID' ) );
setMapVal( itemDataList , 'STATUS' , '4' );
setMapVal( itemDataList , 'LVL' , _NX_LVL );
setMapVal( itemDataList , 'APP_MEMO' , getMapVal( lineDataMap , 'APP_MEMO' ) );
setMapVal( itemDataList , 'CURENT_FLG' , '1' );
insertWFS_T_WORKFLOW(itemDataList);
//----------------------------------------------------------
// 以降の階層で今回の承認者が実施可能な階層を抽出
// OR承認の場合に発動
var _T_WORK_ID = getMapVal( lineDataMap , 'WORK_ID' );
var _T_OBJECT_ID = getMapVal( lineDataMap , 'OBJECT_ID' );
var _T_OBJECT_NM = getMapVal( lineDataMap , 'OBJECT_NM' );
var _T_ROUTE_ID = getMapVal( lineDataMap , 'ROUTE_ID' );
var _T_USR_ID = getMapVal( lineDataMap , 'USR_ID' );
var _T_APP_MEMO = getMapVal( lineDataMap , 'APP_MEMO' );
var _T_RES_MEMO = getMapVal( lineDataMap , 'RES_MEMO' );
var _T_STEP = parseInt( getMapVal( lineDataMap , 'STEP' ) + 1);
var _T_LVL = parseInt(_NX_LVL);
if (_SYONIN_PTN == '1') {
var itemSelectListApproval = selectWFS_T_WORKFLOW_APPROVAL( _T_WORK_ID, _T_ROUTE_ID, _NX_LVL, _SHONIN_ID, _T_OBJECT_ID, _LOGIN_USER_ID);
for (var i = 0; i < itemSelectListApproval.length; i++) {
var lineDataMap = itemSelectListApproval[i];
var _NOW_SYONIN_PTN = getMapVal( lineDataMap , 'SYONIN_PTN' );
if ( _T_LVL == parseInt( getMapVal( lineDataMap , 'LVL' ) ) && (_NOW_SYONIN_PTN == '1') ) {
//承認待ち階層にも承認者の権限あり
//上位で作成した承認待ちデータを承認済みに更新
//以下を更新
// ｽﾃｰﾀｽ＝2承認
// 理由＝入力値
// 承認者
updateWFS_T_WORKFLOW_STATUS( _T_WORK_ID, _T_OBJECT_ID, '2', _T_STEP , _T_RES_MEMO , _SHONIN_ID);
//階層テーブルにて次のレベルが存在するかチェック
var itemSelectList = selectWFS_M_LEVEL_NEXTPRE( _T_WORK_ID, _T_ROUTE_ID, _T_LVL, '1');
if (itemSelectList.length > 0) {
var lineSelectDataMap = itemSelectList[0];
var _NX_LVL = getMapVal( lineSelectDataMap , 'LVL' );
_T_STEP++;
//次期対象以外のCURENT_FLGを０に更新
updateWFS_T_WORKFLOW_CURENT_FLG( _T_WORK_ID, _T_OBJECT_ID );
//データありの場合のみ 次レコード作成
var itemDataList = new Array();
setMapVal( itemDataList , 'WORK_ID' , _T_WORK_ID );
setMapVal( itemDataList , 'OBJECT_ID' , _T_OBJECT_ID );
setMapVal( itemDataList , 'STEP' , _T_STEP );
setMapVal( itemDataList , 'OBJECT_NM' , _T_OBJECT_NM );
setMapVal( itemDataList , 'ROUTE_ID' , _T_ROUTE_ID );
setMapVal( itemDataList , 'USR_ID' , _T_USR_ID );
setMapVal( itemDataList , 'STATUS' , '4' );
setMapVal( itemDataList , 'LVL' , _NX_LVL );
setMapVal( itemDataList , 'APP_MEMO' , _T_APP_MEMO );
setMapVal( itemDataList , 'CURENT_FLG' , '1' );
insertWFS_T_WORKFLOW(itemDataList);
}
_T_LVL++;
} else {
//連続していないので終了
break;
}
}
}
//----------------------------------------------------------
execWorkFlowCustom(getMapVal( lineDataMap , 'WORK_ID' ) , getMapVal( lineDataMap , 'OBJECT_ID' ) , _WFS_SYORI_KBN_SHONIN);
} else {
//決裁
execWorkFlowCustom(getMapVal( lineDataMap , 'WORK_ID' ) , getMapVal( lineDataMap , 'OBJECT_ID' ) , _WFS_SYORI_KBN_KESSAI);
}
} else {
//同じ階層で 次レコード作成
var itemDataList = new Array();
setMapVal( itemDataList , 'WORK_ID' , getMapVal( lineDataMap , 'WORK_ID' ) );
setMapVal( itemDataList , 'OBJECT_ID' , getMapVal( lineDataMap , 'OBJECT_ID') );
setMapVal( itemDataList , 'STEP' , parseInt( getMapVal( lineDataMap , 'STEP' ) + 1 ) );
setMapVal( itemDataList , 'OBJECT_NM' , getMapVal( lineDataMap , 'OBJECT_NM') );
setMapVal( itemDataList , 'ROUTE_ID' , getMapVal( lineDataMap , 'ROUTE_ID' ) );
setMapVal( itemDataList , 'USR_ID' , getMapVal( lineDataMap , 'USR_ID' ) );
setMapVal( itemDataList , 'STATUS' , '4' );
setMapVal( itemDataList , 'LVL' , getMapVal( lineDataMap , 'LVL' ) );
setMapVal( itemDataList , 'APP_MEMO' , getMapVal( lineDataMap , 'APP_MEMO' ) );
setMapVal( itemDataList , 'CURENT_FLG' , '1' );
insertWFS_T_WORKFLOW(itemDataList);
}
}
//承認結果が差戻の場合
if (getMapVal( lineDataMap , 'STATUS' ) == '3') {
//否決の動きが申請者に戻るか一つ前に戻るか確認
if (getMapVal( lineDataMap , 'REJECT_KBN' ) == '1') {
//申請者に戻る場合
//次期対象以外のCURENT_FLGを０に更新
updateWFS_T_WORKFLOW_CURENT_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID') );
//申請者に戻すのでLVLが1以上のデータのACTIVE_FLGをゼロに更新(18/08/07)
updateWFS_T_WORKFLOW_ACTIVE_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID'), 1 );
//データありの場合のみ 次レコード作成
var itemDataList = new Array();
setMapVal( itemDataList , 'WORK_ID' , getMapVal( lineDataMap , 'WORK_ID' ) );
setMapVal( itemDataList , 'OBJECT_ID' , getMapVal( lineDataMap , 'OBJECT_ID' ) );
setMapVal( itemDataList , 'STEP' , parseInt( getMapVal( lineDataMap , 'STEP' ) + 1 ) );
setMapVal( itemDataList , 'OBJECT_NM' , getMapVal( lineDataMap , 'OBJECT_NM' ) );
setMapVal( itemDataList , 'ROUTE_ID' , getMapVal( lineDataMap , 'ROUTE_ID' ) );
setMapVal( itemDataList , 'USR_ID' , getMapVal( lineDataMap , 'USR_ID' ) );
setMapVal( itemDataList , 'STATUS' , '4' );
setMapVal( itemDataList , 'LVL' , 1 );
setMapVal( itemDataList , 'APP_MEMO' , '' );
setMapVal( itemDataList , 'CURENT_FLG' , '1' );
insertWFS_T_WORKFLOW(itemDataList);
execWorkFlowCustom(getMapVal( lineDataMap , 'WORK_ID' ) , getMapVal( lineDataMap , 'OBJECT_ID' ) , _WFS_SYORI_KBN_SASHIMODOSHI);
}
if (getMapVal( lineDataMap , 'REJECT_KBN' ) == '2') {
//ひとつ前に戻る場合
//階層テーブルにて前のレベルが存在するかチェック
var itemSelectList = selectWFS_M_LEVEL_NEXTPRE( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'ROUTE_ID' ), getMapVal( lineDataMap , 'LVL' ), '2');
if (itemSelectList.length > 0) {
var lineSelectDataMap = itemSelectList[0];
var _NX_LVL = getMapVal( lineSelectDataMap , 'LVL' );
//次期対象以外のCURENT_FLGを０に更新
updateWFS_T_WORKFLOW_CURENT_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ) );
//申請者に戻すのでLVLが一つ前の値以上のデータのACTIVE_FLGをゼロに更新(18/08/07)
updateWFS_T_WORKFLOW_ACTIVE_FLG( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID'), _NX_LVL );
//データありの場合のみ 次レコード作成
var itemDataList = new Array();
setMapVal( itemDataList , 'WORK_ID' , getMapVal( lineDataMap , 'WORK_ID' ) );
setMapVal( itemDataList , 'OBJECT_ID' , getMapVal( lineDataMap , 'OBJECT_ID') );
setMapVal( itemDataList , 'STEP' , parseInt( getMapVal( lineDataMap , 'STEP' ) + 1 ) );
setMapVal( itemDataList , 'OBJECT_NM' , getMapVal( lineDataMap , 'OBJECT_NM') );
setMapVal( itemDataList , 'ROUTE_ID' , getMapVal( lineDataMap , 'ROUTE_ID' ) );
setMapVal( itemDataList , 'USR_ID' , getMapVal( lineDataMap , 'USR_ID' ) );
setMapVal( itemDataList , 'STATUS' , '4' );
setMapVal( itemDataList , 'LVL' , _NX_LVL );
if (_NX_LVL == 1) {
setMapVal( itemDataList , 'APP_MEMO' , '' );
} else {
setMapVal( itemDataList , 'APP_MEMO' , getMapVal( lineDataMap , 'APP_MEMO' ) );
}
setMapVal( itemDataList , 'CURENT_FLG' , '1' );
insertWFS_T_WORKFLOW(itemDataList);
execWorkFlowCustom(getMapVal( lineDataMap , 'WORK_ID' ) , getMapVal( lineDataMap , 'OBJECT_ID' ) , _WFS_SYORI_KBN_SASHIMODOSHI);
}
}
}
//承認結果が否認の場合（当処理としては何もしない（上位TALONで実施済み）
if ( getMapVal( lineDataMap , 'STATUS' ) == '9' ) {
execWorkFlowCustom(getMapVal( lineDataMap , 'WORK_ID' ) , getMapVal( lineDataMap , 'OBJECT_ID' ) , _WFS_SYORI_KBN_HININ);
}
return true;
}
function execWorkFlowStop() {
//入力値取得
var itemBlockListHed = TALON.getBlockData_List(1);
var lineDataMap = itemBlockListHed[0];
//次ステップのデータが
//存在する場合はエラーとする
var itemSelectList = selectWFS_T_WORKFLOW( getMapVal( lineDataMap , 'WORK_ID' ), getMapVal( lineDataMap , 'OBJECT_ID' ), ( getMapVal( lineDataMap , 'STEP' ) + 1 ) );
if (itemSelectList.length > 0) {
TALON.addErrorMsg( "既に処理が行われている為、中止処理を実施できません" );
TALON.setIsSuccess(false);
} else {
//データありの場合のみ 次レコード作成
var itemDataList = new Array();
setMapVal( itemDataList , 'WORK_ID' , getMapVal( lineDataMap , 'WORK_ID' ) );
setMapVal( itemDataList , 'OBJECT_ID' , getMapVal( lineDataMap , 'OBJECT_ID') );
setMapVal( itemDataList , 'STEP' , parseInt( getMapVal( lineDataMap , 'STEP' ) ) );
setMapVal( itemDataList , 'STATUS' , '6' );
updateWFS_T_WORKFLOW(itemDataList);
execWorkFlowCustom(getMapVal( lineDataMap , 'WORK_ID' ) , getMapVal( lineDataMap , 'OBJECT_ID' ) , _WFS_SYORI_KBN_TORIKESHI);
TALON.addMsg( "中止処理を実施しました" );
TALON.setIsSuccess(true);
}
}
function _mail_data_wfs(_WORK_ID, _STEP, _OBJECT_ID) {
var mailData = {};
mailData.WFS_SUBJ = null;
mailData.WFS_MAIL = null;
mailData.WFS_MLTEXT = null;
var sql = "" +
"SELECT " +
" " +
" BASE.WORK_ID " +
",BASE.WORK_NM " +
",BASE.STEP " +
",BASE.OBJECT_ID " +
",BASE.USR_ID " +
",BASE.MAIL_ADD AS MAIL " +
" " +
",REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" BASE.MAIL_TITLE, " +
" '%1_STEP%', " +
" concat(BASE.STEP ,'') " +
" ), " +
" '%1_OBJECT_NM%', " +
" case when BASE.OBJECT_NM is null then '' else BASE.OBJECT_NM end " +
" ), " +
" '%1_WORK_ID%', " +
" BASE.WORK_ID " +
" ), " +
" '%1_WORK_NM%', " +
" case when BASE.WORK_NM is null then '' else BASE.WORK_NM end " +
" ), " +
" '%1_OBJECT_ID%', " +
" BASE.OBJECT_ID " +
" ), " +
" '%1_RES_MEMO%', " +
" case when BASE.RES_MEMO is null then '' else BASE.RES_MEMO end " +
" ) AS SUBJ " +
" " +
" " +
",REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" BASE.MAIL_TEXT, " +
" '%1_STEP%', " +
" concat(BASE.STEP ,'') " +
" ), " +
" '%1_OBJECT_NM%', " +
" case when BASE.OBJECT_NM is null then '' else BASE.OBJECT_NM end " +
" ), " +
" '%1_WORK_ID%', " +
" BASE.WORK_ID " +
" ), " +
" '%1_WORK_NM%', " +
" case when BASE.WORK_NM is null then '' else BASE.WORK_NM end " +
" ), " +
" '%1_OBJECT_ID%', " +
" BASE.OBJECT_ID " +
" ), " +
" '%1_RES_MEMO%', " +
" case when BASE.RES_MEMO is null then '' else BASE.RES_MEMO end " +
" ) AS MLTEXT " +
" " +
"FROM ( " +
" SELECT " +
" " +
" WFS_T_WORKFLOW.WORK_ID " +
" ,WFS_M_CONTROL.WORK_NM " +
" ,WFS_T_WORKFLOW.STEP " +
" ,WFS_T_WORKFLOW.OBJECT_ID " +
" ,WFS_T_WORKFLOW.OBJECT_NM " +
" ,WFS_T_WORKFLOW.USR_ID " +
" ,WFS_T_WORKFLOW.LVL " +
" ,WFS_T_WORKFLOW.ROUTE_ID " +
" ,WFS_T_WORKFLOW.STATUS " +
" ,WFS_T_WORKFLOW.RES_MEMO " +
" " +
" ,CASE " +
" WHEN WFS_T_WORKFLOW_NX.WORK_ID IS NULL AND WFS_T_WORKFLOW.STATUS = '2' THEN '決裁' " +
" WHEN WFS_T_WORKFLOW.LVL = '1' THEN '再申請' " +
" WHEN WFS_T_WORKFLOW_NX.WORK_ID IS NOT NULL AND (WFS_T_WORKFLOW.STATUS = '1' or WFS_T_WORKFLOW.STATUS = '2') THEN '承認' " +
" WHEN WFS_T_WORKFLOW.LVL <> '1' AND WFS_T_WORKFLOW.STATUS = '3' THEN '否認' " +
" END AS EXEC_FLG " +
" " +
" ,CASE " +
" WHEN WFS_T_WORKFLOW_NX.WORK_ID IS NULL AND WFS_T_WORKFLOW.STATUS = '2' THEN " +
" TLN_CONCAT( " +
" WFS_ALL_MAIL(WFS_M_AUTH_FT.USR_GRP_ID, WFS_T_WORKFLOW.USR_ID ,WFS_T_WORKFLOW.WORK_ID ,WFS_T_WORKFLOW.OBJECT_ID ,WFS_M_AUTH_FT.LVL), " +
" CASE WHEN WFS_M_ROUTE_HED.END_SEND_MAIL IS NULL THEN '' ELSE WFS_M_ROUTE_HED.END_SEND_MAIL END , " +
" ',' " +
" ) " +
" WHEN WFS_T_WORKFLOW.LVL = '1' THEN WFS_ALL_MAIL(WFS_M_AUTH_NX.USR_GRP_ID, NULL ,WFS_T_WORKFLOW.WORK_ID ,WFS_T_WORKFLOW.OBJECT_ID ,WFS_M_AUTH_NX.LVL) " +
" WHEN WFS_T_WORKFLOW_NX.WORK_ID IS NOT NULL AND (WFS_T_WORKFLOW.STATUS = '1' or WFS_T_WORKFLOW.STATUS = '2') THEN WFS_ALL_MAIL(WFS_M_AUTH_NX.USR_GRP_ID, NULL ,WFS_T_WORKFLOW.WORK_ID ,WFS_T_WORKFLOW.OBJECT_ID ,WFS_M_AUTH_NX.LVL) " +
" WHEN WFS_T_WORKFLOW.LVL <> '1' AND WFS_T_WORKFLOW_NX.LVL <> '1' AND WFS_T_WORKFLOW.STATUS = '3' THEN WFS_ALL_MAIL(WFS_M_AUTH_NX.USR_GRP_ID, NULL ,WFS_T_WORKFLOW.WORK_ID ,WFS_T_WORKFLOW.OBJECT_ID ,WFS_M_AUTH_NX.LVL) " +
" WHEN WFS_T_WORKFLOW.LVL <> '1' AND WFS_T_WORKFLOW_NX.LVL = '1' AND WFS_T_WORKFLOW.STATUS = '3' THEN WFS_ALL_MAIL(WFS_M_AUTH_FT.USR_GRP_ID, WFS_T_WORKFLOW.USR_ID ,WFS_T_WORKFLOW.WORK_ID ,WFS_T_WORKFLOW.OBJECT_ID ,WFS_M_AUTH_FT.LVL) " +
" WHEN WFS_T_WORKFLOW.STATUS = '9' THEN WFS_ALL_MAIL(WFS_M_AUTH_FT.USR_GRP_ID, WFS_T_WORKFLOW.USR_ID ,WFS_T_WORKFLOW.WORK_ID ,WFS_T_WORKFLOW.OBJECT_ID ,WFS_M_AUTH_FT.LVL) " +
" END AS MAIL_ADD " +
" " +
" ,CASE " +
" WHEN WFS_T_WORKFLOW_NX.WORK_ID IS NULL AND WFS_T_WORKFLOW.STATUS = '2' THEN WFS_M_CONTROL.MAIL_TITLE_KESSAI " +
" WHEN WFS_T_WORKFLOW.LVL = '1' THEN WFS_M_CONTROL.MAIL_TITLE_SINSEI " +
" WHEN WFS_T_WORKFLOW_NX.WORK_ID IS NOT NULL AND (WFS_T_WORKFLOW.STATUS = '1' or WFS_T_WORKFLOW.STATUS = '2') THEN WFS_M_CONTROL.MAIL_TITLE_SYONIN " +
" WHEN WFS_T_WORKFLOW.LVL <> '1' AND WFS_T_WORKFLOW.STATUS = '3' THEN WFS_M_CONTROL.MAIL_TITLE_HININ " +
" WHEN WFS_T_WORKFLOW.STATUS = '9' THEN WFS_M_CONTROL.MAIL_TITLE_HININ2 " +
" END AS MAIL_TITLE " +
" " +
" ,CASE " +
" WHEN WFS_T_WORKFLOW_NX.WORK_ID IS NULL AND WFS_T_WORKFLOW.STATUS = '2' THEN WFS_M_CONTROL.MAIL_TEXT_KESSAI " +
" WHEN WFS_T_WORKFLOW.LVL = '1' THEN WFS_M_CONTROL.MAIL_TEXT_SINSEI " +
" WHEN WFS_T_WORKFLOW_NX.WORK_ID IS NOT NULL AND (WFS_T_WORKFLOW.STATUS = '1' or WFS_T_WORKFLOW.STATUS = '2') THEN WFS_M_CONTROL.MAIL_TEXT_SYONIN " +
" WHEN WFS_T_WORKFLOW.LVL <> '1' AND WFS_T_WORKFLOW.STATUS = '3' THEN WFS_M_CONTROL.MAIL_TEXT_HININ " +
" WHEN WFS_T_WORKFLOW.STATUS = '9' THEN WFS_M_CONTROL.MAIL_TEXT_HININ2 " +
" END AS MAIL_TEXT " +
" " +
" FROM WFS_T_WORKFLOW " +
" " +
" INNER JOIN WFS_M_CONTROL " +
" ON WFS_M_CONTROL.WORK_ID = WFS_T_WORKFLOW.WORK_ID " +
" " +
" LEFT OUTER JOIN WFS_T_WORKFLOW WFS_T_WORKFLOW_NX " +
" ON WFS_T_WORKFLOW.WORK_ID = WFS_T_WORKFLOW_NX.WORK_ID " +
" AND WFS_T_WORKFLOW.OBJECT_ID = WFS_T_WORKFLOW_NX.OBJECT_ID " +
" AND WFS_T_WORKFLOW.STEP + 1 = WFS_T_WORKFLOW_NX.STEP " +
" " +
" LEFT OUTER JOIN WFS_M_AUTH WFS_M_AUTH_NX " +
" ON WFS_T_WORKFLOW_NX.WORK_ID = WFS_M_AUTH_NX.WORK_ID " +
" AND WFS_T_WORKFLOW_NX.LVL = WFS_M_AUTH_NX.LVL " +
" AND WFS_T_WORKFLOW_NX.ROUTE_ID = WFS_M_AUTH_NX.ROUTE_ID " +
" " +
" LEFT OUTER JOIN WFS_T_WORKFLOW WFS_T_WORKFLOW_FT " +
" ON WFS_T_WORKFLOW.WORK_ID = WFS_T_WORKFLOW_FT.WORK_ID " +
" AND WFS_T_WORKFLOW.OBJECT_ID = WFS_T_WORKFLOW_FT.OBJECT_ID " +
" AND 1 = WFS_T_WORKFLOW_FT.STEP " +
" " +
" LEFT OUTER JOIN WFS_M_AUTH WFS_M_AUTH_FT " +
" ON WFS_T_WORKFLOW_FT.WORK_ID = WFS_M_AUTH_FT.WORK_ID " +
" AND WFS_T_WORKFLOW_FT.LVL = WFS_M_AUTH_FT.LVL " +
" AND WFS_T_WORKFLOW_FT.ROUTE_ID = WFS_M_AUTH_FT.ROUTE_ID " +
" " +
" LEFT OUTER JOIN WFS_M_ROUTE_HED " +
" ON WFS_T_WORKFLOW.ROUTE_ID = WFS_M_ROUTE_HED.ROUTE_ID " +
" " +
" WHERE WFS_T_WORKFLOW.WORK_ID = '" + tln_com_escape( _WORK_ID ) + "' " +
" AND WFS_T_WORKFLOW.STEP = '" + tln_com_escape( _STEP ) + "' " +
" AND WFS_T_WORKFLOW.OBJECT_ID = '" + tln_com_escape( _OBJECT_ID ) + "' " +
" " +
") BASE " +
" ";
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig() , sql );
if (itemSelectList.length > 0) {
var lineDataMap = itemSelectList[0];
mailData.WFS_SUBJ = getMapVal( lineDataMap , 'SUBJ' );
mailData.WFS_MAIL = getMapVal( lineDataMap , 'MAIL' );
mailData.WFS_MLTEXT = getMapVal( lineDataMap , 'MLTEXT' );
}
return mailData;
}
function _mail_data_reminder(_WORK_ID, _STEP, _OBJECT_ID) {
var mailData = {};
mailData.WFS_SUBJ = null;
mailData.WFS_MAIL = null;
mailData.WFS_MLTEXT = null;
var sql = "" +
"SELECT " +
" " +
" BASE.WORK_ID " +
",BASE.WORK_NM " +
",BASE.STEP as STEP " +
",BASE.REMINDER_ID " +
" " +
",BASE.OBJECT_ID " +
",BASE.USR_ID " +
",BASE.MAIL_ADD AS MAIL " +
" " +
",REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" BASE.MAIL_TITLE, " +
" '%1_STEP%', " +
" concat(BASE.STEP ,'') " +
" ), " +
" '%1_OBJECT_NM%', " +
" case when BASE.OBJECT_NM is null then '' else BASE.OBJECT_NM end " +
" ), " +
" '%1_WORK_ID%', " +
" BASE.WORK_ID " +
" ), " +
" '%1_WORK_NM%', " +
" case when BASE.WORK_NM is null then '' else BASE.WORK_NM end " +
" ), " +
" '%1_OBJECT_ID%', " +
" BASE.OBJECT_ID " +
" ), " +
" '%1_RES_MEMO%', " +
" case when BASE.RES_MEMO is null then '' else BASE.RES_MEMO end " +
" ) AS SUBJ " +
" " +
",REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" REPLACE( " +
" BASE.MAIL_TEXT, " +
" '%1_STEP%', " +
" concat(BASE.STEP ,'') " +
" ), " +
" '%1_OBJECT_NM%', " +
" case when BASE.OBJECT_NM is null then '' else BASE.OBJECT_NM end " +
" ), " +
" '%1_WORK_ID%', " +
" BASE.WORK_ID " +
" ), " +
" '%1_WORK_NM%', " +
" case when BASE.WORK_NM is null then '' else BASE.WORK_NM end " +
" ), " +
" '%1_OBJECT_ID%', " +
" BASE.OBJECT_ID " +
" ), " +
" '%1_RES_MEMO%', " +
" case when BASE.RES_MEMO is null then '' else BASE.RES_MEMO end " +
" ) AS MLTEXT " +
" " +
"FROM ( " +
" " +
" SELECT " +
" WFS_T_WORKREMINDER.WORK_ID " +
" ,WFS_M_CONTROL.WORK_NM " +
" ,WFS_T_WORKREMINDER.STEP " +
" ,WFS_T_WORKREMINDER.OBJECT_ID " +
" ,WFS_T_WORKFLOW.OBJECT_NM " +
" ,WFS_T_WORKREMINDER.REMINDER_ID " +
" ,WFS_T_WORKFLOW.USR_ID " +
" ,WFS_T_WORKFLOW.LVL " +
" ,WFS_T_WORKFLOW.ROUTE_ID " +
" ,WFS_T_WORKFLOW.STATUS " +
" ,WFS_T_WORKREMINDER.RES_MEMO " +
" " +
" ,WFS_ALL_MAIL(WFS_M_AUTH.USR_GRP_ID, NULL , WFS_T_WORKREMINDER.WORK_ID , WFS_T_WORKREMINDER.OBJECT_ID , WFS_M_AUTH.LVL) AS MAIL_ADD " +
" " +
" ,WFS_M_CONTROL.MAIL_TITLE_SAISOKU AS MAIL_TITLE " +
" " +
" ,WFS_M_CONTROL.MAIL_TEXT_SAISOKU AS MAIL_TEXT " +
" " +
" FROM WFS_T_WORKREMINDER " +
" " +
" INNER JOIN WFS_T_WORKFLOW " +
" ON WFS_T_WORKREMINDER.WORK_ID = WFS_T_WORKFLOW.WORK_ID " +
" AND WFS_T_WORKREMINDER.OBJECT_ID = WFS_T_WORKFLOW.OBJECT_ID " +
" AND WFS_T_WORKREMINDER.STEP = WFS_T_WORKFLOW.STEP " +
" " +
" INNER JOIN WFS_M_CONTROL " +
" ON WFS_M_CONTROL.WORK_ID = WFS_T_WORKFLOW.WORK_ID " +
" " +
" LEFT OUTER JOIN WFS_M_AUTH WFS_M_AUTH " +
" ON WFS_T_WORKFLOW.WORK_ID = WFS_M_AUTH.WORK_ID " +
" AND WFS_T_WORKFLOW.LVL = WFS_M_AUTH.LVL " +
" AND WFS_T_WORKFLOW.ROUTE_ID = WFS_M_AUTH.ROUTE_ID " +
" " +
" WHERE WFS_T_WORKFLOW.WORK_ID = '" + tln_com_escape( _WORK_ID ) + "' " +
" AND WFS_T_WORKFLOW.STEP = '" + tln_com_escape( _STEP ) + "' " +
" AND WFS_T_WORKFLOW.OBJECT_ID = '" + tln_com_escape( _OBJECT_ID ) + "' " +
" " +
") BASE " +
" ";
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig() , sql );
if (itemSelectList.length > 0) {
var lineDataMap = itemSelectList[itemSelectList.length - 1]; // STEPが進行しないまま複数回の催促が起こり得るため、最後の催促内容をメール送信する
mailData.WFS_SUBJ = getMapVal( lineDataMap , 'SUBJ' );
mailData.WFS_MAIL = getMapVal( lineDataMap , 'MAIL' );
mailData.WFS_MLTEXT = getMapVal( lineDataMap , 'MLTEXT' );
}
return mailData;
}
```
#### サーバJS ライブラリ: WFS_CUSTOM ([共通]ワークフローシステム（ユーザー処理用）)
```javascript
/**
* WFS_CUSTOM : [共通]ワークフローシステム（ユーザー処理用）
*
* @version 2019/03/01
*/
//-------------------------------------------------------
// パラメータ
// work_id ワークフローＩＤ
// object_id オブジェクトＩＤ
// syori_kbn 処理区分
// 10 : 申請 [ STATUS = 1 ]
// 20 : 承認（次階層あり） [ STATUS = 2 ]
// 21 : 承認（次階層なし=決裁） [ STATUS = 2 ]
// 30 : 差戻 [ STATUS = 3 ]
// 90 : 否認 [ STATUS = 9 ]
// 50 : 取戻（申請者取戻） [ STATUS = 5 ]
// 60 : 取消 [ STATUS = 6 ]
// 70 : 取戻（承認者取戻） [ STATUS = 7 ]
// 80 : 引上 [ STATUS = 8 ]
//-------------------------------------------------------
var _WFS_SYORI_KBN_SHINSEI = '10'; //申請
var _WFS_SYORI_KBN_SHONIN = '20'; //承認（次階層あり）
var _WFS_SYORI_KBN_KESSAI = '21'; //承認（次階層なし＝決裁）
var _WFS_SYORI_KBN_SASHIMODOSHI = '30'; //差戻
var _WFS_SYORI_KBN_HININ = '90'; //否認
var _WFS_SYORI_KBN_TORIMODOSHIS = '50'; //取戻（申請者取戻）
var _WFS_SYORI_KBN_TORIKESHI = '60'; //取消
var _WFS_SYORI_KBN_TORIMODOSHIS = '70'; //取戻（承認者取戻）
var _WFS_SYORI_KBN_HIKIAGE = '80'; //引上
function execWorkFlowCustom(work_id , obj_id , syori_kbn) {
var status = '';
var table = '';
var join = '';
var param = '';
switch (work_id) {
//(WORK_ID:XXXXXXXXXX)
case 'XXXXXXXXXX':
break;
//(WORK_ID:XXXXXXXXXX)
case 'XXXXXXXXXX':
break;
default:
break;
}
}
```
#### サーバJS ライブラリ: WFS_SETUP ([共通]ワークフローシステム（環境構築）)
```javascript
/**
* WFS_SETUP : [共通]ワークフローシステム（環境構築）
*
* 最終更新：WFS_2_0_2
* @version 2023/11/13
*/
//--------------------------------------------
// セットアップ関連共通
//--------------------------------------------
function table_exists(nm) {
if ( TALON.getDbConfig().isOra() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM USER_TABLES WHERE TABLE_NAME = '" + nm + "' " );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
}
if ( TALON.getDbConfig().isMy() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT DSP1 FROM TLN_M_HANYO_CODE_MAIN WHERE SIKIBETU_CODE='TLN_GENERAL' AND KEY_CODE='DB_NAME'" );
var lineDataMap = itemSelectList[0];
var _DSP1 = getMapVal(lineDataMap,'DSP1');
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM information_schema.tables WHERE table_name = '" + nm + "' AND table_schema = '" + _DSP1 + "' " );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
};
if ( TALON.getDbConfig().isMssql() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM sys.objects WHERE type = 'U' AND name = '" + nm + "'" );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
};
if ( TALON.getDbConfig().isPostgres() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(DISTINCT table_name) AS CNT FROM information_schema.columns WHERE LOWER(table_name) = LOWER('" + nm + "')" );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
};
if (_CNT == 0) {
return false;
} else {
return true;
}
}
function function_exists(nm) {
if ( TALON.getDbConfig().isOra() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM USER_PROCEDURES WHERE OBJECT_TYPE = 'FUNCTION' AND OBJECT_NAME = '" + nm + "' " );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
}
if ( TALON.getDbConfig().isMy() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT DSP1 FROM TLN_M_HANYO_CODE_MAIN WHERE SIKIBETU_CODE='TLN_GENERAL' AND KEY_CODE='DB_NAME'" );
var lineDataMap = itemSelectList[0];
var _DSP1 = getMapVal(lineDataMap,'DSP1');
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_TYPE = 'FUNCTION' AND ROUTINE_SCHEMA = '" + _DSP1 + "' AND SPECIFIC_NAME = '" + nm + "'" );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
};
if ( TALON.getDbConfig().isMssql() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM sys.objects WHERE type = 'FN' AND name = '" + nm + "'" );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
};
if ( TALON.getDbConfig().isPostgres() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM pg_proc WHERE proname = LOWER('" + nm + "')" );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
};
if (_CNT == 0) {
return false;
} else {
return true;
}
}
function view_exists(nm) {
if ( TALON.getDbConfig().isOra() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM USER_OBJECTS WHERE OBJECT_TYPE = 'VIEW' AND OBJECT_NAME = '" + nm + "' " );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
}
if ( TALON.getDbConfig().isMy() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT DSP1 FROM TLN_M_HANYO_CODE_MAIN WHERE SIKIBETU_CODE='TLN_GENERAL' AND KEY_CODE='DB_NAME'" );
var lineDataMap = itemSelectList[0];
var _DSP1 = getMapVal(lineDataMap,'DSP1');
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM INFORMATION_SCHEMA.VIEWS WHERE TABLE_NAME = '" + nm + "' AND TABLE_SCHEMA = '" + _DSP1 + "' " );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
};
if ( TALON.getDbConfig().isMssql() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM sys.objects WHERE type = 'V' AND name = '" + nm + "'" );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
};
if ( TALON.getDbConfig().isPostgres() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM pg_class WHERE relkind = 'v' and relname = LOWER('" + nm + "')" );
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
};
if (_CNT == 0) {
return false;
} else {
return true;
}
}
function field_exists(nm,fl) {
if ( !TALON.getDbConfig().isPostgres() ) {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM TLN_M_NAME_MANAGER WHERE TABLE_NAME = '" + nm + "' AND COLUMN_NAME = '" + fl + "' " );
} else {
var itemSelectList = TalonDbUtil.select( TALON.getDbConfig(), "SELECT COUNT(*) AS CNT FROM TLN_M_NAME_MANAGER WHERE TABLE_NAME = LOWER('" + nm + "') AND COLUMN_NAME = LOWER('" + fl + "') " );
}
var lineDataMap = itemSelectList[0];
var _CNT = getMapVal(lineDataMap,'CNT');
if (_CNT == 0) {
return false;
} else {
return true;
}
}
function executeSQL(sql) {
if ( TALON.getDbConfig().isOra() ) {
//Oracleの場合true
TALON.executeSQL(sql);
};
if ( TALON.getDbConfig().isMy() ) {
//MySQLの場合true
TalonDbUtil.update( TALON.getDbConfig(), sql);
};
if ( TALON.getDbConfig().isMssql() ) {
//MsSqlServerの場合true
TalonDbUtil.update( TALON.getDbConfig(), sql);
};
if ( TALON.getDbConfig().isPostgres() ) {
//Postgresの場合true
TalonDbUtil.update( TALON.getDbConfig(), sql);
};
}
function table_exists_drop(nm) {
if (table_exists(nm)) {
if ( !TALON.getDbConfig().isPostgres() ) {
executeSQL( "DROP TABLE " + nm ) ;
} else {
executeSQL( "DROP TABLE " + nm.toLowerCase() ) ;
}
}
}
function function_exists_drop(nm) {
if (function_exists(nm)) {
if ( !TALON.getDbConfig().isPostgres() ) {
executeSQL( "DROP FUNCTION " + nm ) ;
} else {
executeSQL( "DROP FUNCTION " + nm.toLowerCase() ) ;
}
}
}
function view_exists_drop(nm) {
if (view_exists(nm)) {
if ( !TALON.getDbConfig().isPostgres() ) {
executeSQL( "DROP VIEW " + nm ) ;
} else {
executeSQL( "DROP VIEW " + nm.toLowerCase() ) ;
}
}
}
//--------------------------------------------
// セットアップ後環境別データ修正
//--------------------------------------------
function exec_custom() {
if ( TALON.getDbConfig().isMy() ) {
//MySQLの場合true
if ( chkLowercase() ) {
//lowercaseとして判断
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_APP SET VALUE = LOWER(VALUE) WHERE FUNC_KBN = 'UPDATE_TABLE' AND FUNC_ID LIKE 'WFS_%' ");
}
}
if ( TALON.getDbConfig().isMssql() ) {
//MsSqlServerの場合true
var array = ["TLN_DATE_TO_CHAR","TLN_CHAR_TO_DATE","TLN_SYSDATE","TLN_CONCAT","TLN_CHARINDEX","TLN_CHAR_TO_NUMBER","WFS_ALL_MAIL","WFS_AUTH_MAIN","WFS_AUTH_SHINSEI","WFS_AUTH_SHONIN","WFS_WF_EXISTS","WFS_WF_STEP"];
var i;
var num = array.length;
for(i=0;i < num;i++){
//--------------
//TLN_M_GENERAL_FUNC_SQL
TalonDbUtil.update( TALON.getDbConfig(),
" UPDATE TLN_M_GENERAL_FUNC_SQL " +
" SET " +
" BODY_SQL = REPLACE(REPLACE(BODY_SQL ,'" + array[i] + "','dbo." + array[i] + "'),'dbo.dbo.','dbo.') " +
" ,TITLE_SQL = REPLACE(REPLACE(TITLE_SQL,'" + array[i] + "','dbo." + array[i] + "'),'dbo.dbo.','dbo.') " +
" WHERE FUNC_ID LIKE 'WFS_%' "
);
//--------------
//TLN_M_GENERAL_ITEM_OPTN
TalonDbUtil.update( TALON.getDbConfig(),
" UPDATE TLN_M_GENERAL_ITEM_OPTN " +
" SET " +
" CHR_TEXT = REPLACE(REPLACE(CHR_TEXT,'" + array[i] + "','dbo." + array[i] + "'),'dbo.dbo.','dbo.') " +
" WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_ID <> 'WFS_M000' " +
" AND (FUNC_KBN = 'JAVA_SCRIPT_ENGINE' OR (FUNC_KBN = 'BUTTON_BAT' AND FLAG = 2)) "
);
//--------------
//TLN_M_HANYO_CODE_MAIN
TalonDbUtil.update( TALON.getDbConfig(),
" UPDATE TLN_M_HANYO_CODE_MAIN " +
" SET " +
" NOTE = REPLACE(REPLACE(NOTE,'" + array[i] + "','dbo." + array[i] + "'),'dbo.dbo.','dbo.') " +
" WHERE SIKIBETU_CODE = 'TLN_GENERAL_JAVASCRIPT_ENGINE' " +
" AND KEY_CODE <> 'WFS_SETUP' "
);
}
}
if ( TALON.getDbConfig().isPostgres() ) {
//PostgreSQLの場合true
//lower
//--------------
//TLN_M_GENERAL_ITEM
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM SET COL_NAME = LOWER(COL_NAME) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_ID <> 'WFS_M000' ");
//--------------
//TLN_M_GENERAL_FUNC_SQL
// * TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = LOWER(BODY_SQL) WHERE FUNC_ID LIKE 'WFS_%' ");
// * TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET TITLE_SQL = LOWER(TITLE_SQL) WHERE FUNC_ID LIKE 'WFS_%' ");
// *
// * TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'tln_login_user','TLN_LOGIN_USER') WHERE FUNC_ID LIKE 'WFS_%' ");
// * TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'wfs_all_chk' ,'WFS_ALL_CHK' ) WHERE FUNC_ID LIKE 'WFS_%' ");
// *
// * WFS_M034のみバインド変数を小文字化
// * TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%WORK_ID%**/' ,'/**%work_id%**/' ) WHERE FUNC_ID LIKE 'WFS_M034' ");
// * TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%WORK_NM%**/' ,'/**%work_nm%**/' ) WHERE FUNC_ID LIKE 'WFS_M034' ");
// * TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%ROUTE_ID%**/' ,'/**%route_id%**/' ) WHERE FUNC_ID LIKE 'WFS_M034' ");
//機能内で使用しているバインド変数を小文字に変換
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%APP_MEMO_SEL%**/' ,'/**%app_memo_sel%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%ID%**/' ,'/**%id%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%JOB_ID%**/' ,'/**%job_id%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%LVL%**/' ,'/**%lvl%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%NOT_END_FLG%**/' ,'/**%not_end_flg%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%OBJECT_ID%**/' ,'/**%object_id%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%OBJECT_NM%**/' ,'/**%object_nm%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%PARAM_CTL_UMU%**/' ,'/**%param_ctl_umu%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%PARAM_TRG%**/' ,'/**%param_trg%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%ROUTE_ID%**/' ,'/**%route_id%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%SEL_CHK_NO%**/' ,'/**%sel_chk_no%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%SEL_DEL_FLG%**/' ,'/**%sel_del_flg%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%SEL_WORK_ID%**/' ,'/**%sel_work_id%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%TENKAI_HOUKOU%**/' ,'/**%tenkai_houkou%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%USR_ID%**/' ,'/**%usr_id%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%WORK_ID%**/' ,'/**%work_id%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_FUNC_SQL SET BODY_SQL = REPLACE(BODY_SQL,'/**%WORK_NM%**/' ,'/**%work_nm%**/' ) WHERE FUNC_ID LIKE 'WFS_%' ");
//--------------
//TLN_M_GENERAL_ITEM_OPTN
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR4 = LOWER(CHR4) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'BUTTON_NEXT' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR4 = replace(CHR4,'sample_work01','SAMPLE_WORK01') WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'BUTTON_NEXT' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR4 = replace(CHR4,'sample_work02','SAMPLE_WORK02') WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'BUTTON_NEXT' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET KIND = LOWER(KIND), CHR1 = LOWER(CHR1), CHR_TEXT = LOWER(CHR_TEXT), CHR4 = LOWER(CHR4) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'SEND_MAIL' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET KIND = LOWER(KIND) WHERE FUNC_ID LIKE 'WFS_%' AND ( FUNC_KBN LIKE 'BUTTON_NEXT_%' or FUNC_KBN = 'INPUT_CONDITION' ) ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR1 = LOWER(CHR1), CHR2 = LOWER(CHR2) WHERE FUNC_ID LIKE 'WFS_%' AND ( FUNC_KBN = 'SUB_SEARCH' OR FUNC_KBN = 'LOOK_UP' ) ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR1 = LOWER(CHR1) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'REGIST_VALUE' AND CHR1 NOT LIKE '%WFS%' AND CHR1 NOT LIKE '%SYSDATE%' AND CHR1 NOT LIKE '%LOGIN_ID%' AND CHR1 NOT LIKE '%TLN_M%'"); //システムバインド変数、機能ID、URLはそのまま
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR2 = LOWER(CHR2) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'REGIST_VALUE' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET KIND = LOWER(KIND) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'MATCH_PATTERN' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR1 = LOWER(CHR1) , CHR2 = LOWER(CHR2) , CHR3 = LOWER(CHR3) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'SUGGEST' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR2 = LOWER(CHR2) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'FORE_COLOR' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR1 = LOWER(CHR1) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'INIT_VALUE_TEXT' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR1 = LOWER(CHR1) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'OTHER_FUNC' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR1 = LOWER(CHR1), CHR3 = LOWER(CHR3) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN LIKE 'OTHER_FUNC_%' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR3 = replace(CHR3,'%login_id%','%LOGIN_ID%') WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN LIKE 'OTHER_FUNC_%' "); //他機能呼出のシステム変数は大文字
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR2 = LOWER(CHR2) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'BACK_COLOR' ");
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET CHR1 = REPLACE(CHR1,'%2_ROUTE_SET_KBN_NULL%' ,'%2_route_set_kbn_null%' ) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'REGIST_VALUE' ");
//--------------
//TLN_M_GENERAL_ITEM_OPTN
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_ITEM_OPTN SET COL_NAME = LOWER(COL_NAME) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN NOT IN ('SEND_MAIL' , 'OTHER_FUNC' , 'JAVA_SCRIPT_ENGINE' , 'JAVA_SCRIPT' , 'BUTTON_NEXT' , 'BUTTON_BAT' , 'BUTTON_DSP_POS' ) AND FUNC_KBN NOT LIKE 'BUTTON_AJAX%' ");
//TLN_M_GENERAL_APP
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_APP SET VALUE = LOWER(VALUE) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_KBN = 'UPDATE_TABLE' ");
//TLN_M_GENERAL_USES
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_USES SET KEY_CODE = LOWER(KEY_CODE) WHERE FUNC_ID LIKE 'WFS_%' AND USER_CODE = 'TLN_GEN_ALL' ");
//--------------
//TLN_M_GENERAL_POSITION
TalonDbUtil.update( TALON.getDbConfig(), " UPDATE TLN_M_GENERAL_POSITION SET NAME = LOWER(NAME) WHERE FUNC_ID LIKE 'WFS_%' AND FUNC_ID <> 'WFS_M000' AND CHR1='ITEM' ");
}
}
//--------------------------------------------
// Ver1.4へのバージョンアップ
//--------------------------------------------
function exec_ver_up_14( _func_chk ){
//テーブルの追加
exec_ver_up_14_TableModify();
//データのパッチ（補填）
exec_ver_up_patch_14_DataPatch();
//画面でファンクションの再構築が設定された場合（初回インストールは固定１で呼び出される)
if ( _func_chk == '1' ) {
//ファンクションの再構築 →ファンクション・Viewはパッチ毎に最新を作成
exec_create_Function();
//Ｖｉｅｗの再構築 →ファンクション・Viewはパッチ毎に最新を作成
exec_create_View();
}
}
function exec_ver_up_14_TableModify(){
//テーブル変更、追加処理
//------------------------------
if ( TALON.getDbConfig().isOra() ) {
//--------------------------------------
//[変更]WFS_M_CONTROL
if (!field_exists('WFS_M_AUTH','SYONIN_PTN')) {
executeSQL(
"ALTER TABLE WFS_M_AUTH ADD ( " +
"SYONIN_PTN VARCHAR2(20) NULL " +
")" +
"");
}
//--------------------------------------
//[変更]WFS_M_CONTROL
if (!field_exists('WFS_M_CONTROL','APPROVAL_FLG')) {
executeSQL(
"ALTER TABLE WFS_M_CONTROL MODIFY ( " +
"MAIL_TEXT_KESSAI VARCHAR2(3000) , " +
"MAIL_TEXT_SINSEI VARCHAR2(3000) , " +
"MAIL_TEXT_SYONIN VARCHAR2(3000) , " +
"MAIL_TEXT_HININ VARCHAR2(3000) " +
")" +
"");
executeSQL(
"ALTER TABLE WFS_M_CONTROL ADD ( " +
"APPROVAL_FLG VARCHAR2(20) NULL , " +
"ROUTE_SET_KBN VARCHAR2(50) NULL , " +
"ROUTE_STRUCT_ID VARCHAR2(50) NULL , " +
"MAIL_TITLE_HININ2 VARCHAR2(100) NULL , " +
"MAIL_TEXT_HININ2 VARCHAR2(3000) NULL , " +
"MAIL_TITLE_SAISOKU VARCHAR2(100) NULL , " +
"MAIL_TEXT_SAISOKU VARCHAR2(3000) NULL , " +
"CATEGORY_ID VARCHAR2(50) NULL " +
")" +
"");
}
//--------------------------------------
//[変更]WFS_M_ROUTE_HED
if (!field_exists('WFS_M_ROUTE_HED','PARAM_FM')) {
executeSQL(
"ALTER TABLE WFS_M_ROUTE_HED ADD ( " +
"PARAM_FM VARCHAR2(50) NULL , " +
"PARAM_VAL VARCHAR2(100) NULL , " +
"PARAM_TP VARCHAR2(50) NULL , " +
"END_SEND_MAIL VARCHAR2(100) NULL , " +
"DEL_FLG VARCHAR2(10) NULL " +
")" +
"");
}
//--------------------------------------
//[新規]WFS_M_STRUCT_HED
if (!table_exists('WFS_M_STRUCT_HED')) {
executeSQL(
" CREATE TABLE WFS_M_STRUCT_HED " + "\n" +
" (" + "\n" +
" ID VARCHAR2(50) NOT NULL," + "\n" +
" TITLE VARCHAR2(100) ," + "\n" +
" CREATED_DATE DATE ," + "\n" +
" CREATED_BY VARCHAR2(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR2(50) ," + "\n" +
" UPDATED_DATE DATE ," + "\n" +
" UPDATED_BY VARCHAR2(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR2(50) ," + "\n" +
" MODIFY_COUNT NUMBER(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_STRUCT_HED " + "\n" +
" ADD ( CONSTRAINT PK_WFS_M_STRUCT_HED PRIMARY KEY (ID) USING INDEX ) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_M_STRUCT_DTL
if (!table_exists('WFS_M_STRUCT_DTL')) {
executeSQL(
" CREATE TABLE WFS_M_STRUCT_DTL " + "\n" +
" (" + "\n" +
" ID VARCHAR2(50) NOT NULL," + "\n" +
" SEQ NUMBER(10) NOT NULL," + "\n" +
" CHILD_ID VARCHAR2(50) ," + "\n" +
" OYA_ID VARCHAR2(50) ," + "\n" +
" BOTTOM_FLG VARCHAR2(10) ," + "\n" +
" SYONIN_PTN VARCHAR2(20) ," + "\n" +
" CREATED_DATE DATE ," + "\n" +
" CREATED_BY VARCHAR2(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR2(50) ," + "\n" +
" UPDATED_DATE DATE ," + "\n" +
" UPDATED_BY VARCHAR2(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR2(50) ," + "\n" +
" MODIFY_COUNT NUMBER(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_STRUCT_DTL " + "\n" +
" ADD ( CONSTRAINT PK_WFS_M_STRUCT_DTL PRIMARY KEY (ID, SEQ) USING INDEX ) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_STRUCT_TEMP
if (!table_exists('WFS_W_STRUCT_TEMP')) {
executeSQL(
" CREATE TABLE WFS_W_STRUCT_TEMP " + "\n" +
" (" + "\n" +
" JOB_ID VARCHAR2(50) NOT NULL," + "\n" +
" ID VARCHAR2(50) ," + "\n" +
" SEQ NUMBER(10) NOT NULL," + "\n" +
" CHILD_ID VARCHAR2(50) ," + "\n" +
" OYA_ID VARCHAR2(50) ," + "\n" +
" BOTTOM_FLG VARCHAR2(10) ," + "\n" +
" SYONIN_PTN VARCHAR2(20) ," + "\n" +
" CREATED_DATE DATE ," + "\n" +
" CREATED_BY VARCHAR2(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR2(50) ," + "\n" +
" UPDATED_DATE DATE ," + "\n" +
" UPDATED_BY VARCHAR2(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR2(50) ," + "\n" +
" MODIFY_COUNT NUMBER(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STRUCT_TEMP " + "\n" +
" ADD ( CONSTRAINT PK_WFS_W_STRUCT_TEMP PRIMARY KEY (JOB_ID, SEQ) USING INDEX ) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_STRUCT_LIST
if (!table_exists('WFS_W_STRUCT_LIST')) {
executeSQL(
" CREATE TABLE WFS_W_STRUCT_LIST " + "\n" +
" (" + "\n" +
" JOB_ID VARCHAR2(50) NOT NULL," + "\n" +
" ID VARCHAR2(50) ," + "\n" +
" SEQ NUMBER(10) NOT NULL," + "\n" +
" SORT VARCHAR2(50) ," + "\n" +
" LVL VARCHAR2(10) ," + "\n" +
" OYA_ID VARCHAR2(50) ," + "\n" +
" CHILD_ID VARCHAR2(50) ," + "\n" +
" SYONIN_PTN VARCHAR2(20) ," + "\n" +
" CREATED_DATE DATE ," + "\n" +
" CREATED_BY VARCHAR2(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR2(50) ," + "\n" +
" UPDATED_DATE DATE ," + "\n" +
" UPDATED_BY VARCHAR2(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR2(50) ," + "\n" +
" MODIFY_COUNT NUMBER(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STRUCT_LIST " + "\n" +
" ADD ( CONSTRAINT PK_WFS_W_STRUCT_LIST PRIMARY KEY (JOB_ID, SEQ) USING INDEX ) " + "\n" +
"");
}
//--------------------------------------
//[変更]WFS_T_WORKFLOW
if (!field_exists('WFS_T_WORKFLOW','SHONIN_ID')) {
executeSQL(
"ALTER TABLE WFS_T_WORKFLOW ADD ( " +
"SHONIN_ID VARCHAR2(100) NULL , " +
"ACTIVE_FLG VARCHAR2(20) NULL , " +
"HOLD_FLG VARCHAR2(20) NULL " +
")" +
"");
}
//--------------------------------------
//[新規]WFS_W_STAT_LIST
if (!table_exists('WFS_W_STAT_LIST')) {
executeSQL(
" CREATE TABLE WFS_W_STAT_LIST " + "\n" +
" (" + "\n" +
" WORK_ID VARCHAR2(100) NOT NULL ," + "\n" +
" OBJECT_ID VARCHAR2(100) NOT NULL ," + "\n" +
" LVL01_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL01_DT DATE DEFAULT NULL ," + "\n" +
" LVL01_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL02_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL02_DT DATE DEFAULT NULL ," + "\n" +
" LVL02_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL03_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL03_DT DATE DEFAULT NULL ," + "\n" +
" LVL03_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL04_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL04_DT DATE DEFAULT NULL ," + "\n" +
" LVL04_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL05_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL05_DT DATE DEFAULT NULL ," + "\n" +
" LVL05_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL06_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL06_DT DATE DEFAULT NULL ," + "\n" +
" LVL06_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL07_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL07_DT DATE DEFAULT NULL ," + "\n" +
" LVL07_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL08_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL08_DT DATE DEFAULT NULL ," + "\n" +
" LVL08_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL09_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL09_DT DATE DEFAULT NULL ," + "\n" +
" LVL09_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL10_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL10_DT DATE DEFAULT NULL ," + "\n" +
" LVL10_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL11_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL11_DT DATE DEFAULT NULL ," + "\n" +
" LVL11_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL12_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL12_DT DATE DEFAULT NULL ," + "\n" +
" LVL12_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL13_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL13_DT DATE DEFAULT NULL ," + "\n" +
" LVL13_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL14_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL14_DT DATE DEFAULT NULL ," + "\n" +
" LVL14_US VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL15_NM VARCHAR2(100) DEFAULT NULL ," + "\n" +
" LVL15_DT DATE DEFAULT NULL ," + "\n" +
" LVL15_US VARCHAR2(100) DEFAULT NULL " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STAT_LIST " + "\n" +
" ADD ( CONSTRAINT PK_WFS_W_STAT_LIST PRIMARY KEY (WORK_ID, OBJECT_ID) USING INDEX ) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_M_USR_DAIRI
if (!table_exists('WFS_M_USR_DAIRI')) {
executeSQL(
" CREATE TABLE WFS_M_USR_DAIRI " + "\n" +
" (" + "\n" +
" USR_ID VARCHAR2(100) NOT NULL," + "\n" +
" DAIRI_USR_ID VARCHAR2(100) NOT NULL," + "\n" +
" SHINSEI_FLG VARCHAR2(10) ," + "\n" +
" SHONIN_FLG VARCHAR2(10) ," + "\n" +
" YUKO_KBN VARCHAR2(10) ," + "\n" +
" CREATED_DATE DATE ," + "\n" +
" CREATED_BY VARCHAR2(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR2(50) ," + "\n" +
" UPDATED_DATE DATE ," + "\n" +
" UPDATED_BY VARCHAR2(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR2(50) ," + "\n" +
" MODIFY_COUNT NUMBER(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_USR_DAIRI " + "\n" +
" ADD ( CONSTRAINT PK_WFS_M_USR_DAIRI PRIMARY KEY (USR_ID, DAIRI_USR_ID) USING INDEX ) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_T_WORKREMINDER
if (!table_exists('WFS_T_WORKREMINDER')) {
executeSQL(
" CREATE TABLE WFS_T_WORKREMINDER " + "\n" +
" (" + "\n" +
" WORK_ID VARCHAR2(100) NOT NULL," + "\n" +
" OBJECT_ID VARCHAR2(100) NOT NULL," + "\n" +
" STEP DECIMAL(10,0) NOT NULL," + "\n" +
" REMINDER_ID VARCHAR2(100) NOT NULL," + "\n" +
" ROUTE_ID VARCHAR2(100) ," + "\n" +
" LVL DECIMAL(10,0) ," + "\n" +
" RES_MEMO VARCHAR2(4000) ," + "\n" +
" SEND_ADDRESS VARCHAR2(500) ," + "\n" +
" SEND_TITLE VARCHAR2(500) ," + "\n" +
" SEND_TEXT VARCHAR2(4000) ," + "\n" +
" CREATED_DATE DATE ," + "\n" +
" CREATED_BY VARCHAR2(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR2(50) ," + "\n" +
" UPDATED_DATE DATE ," + "\n" +
" UPDATED_BY VARCHAR2(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR2(50) ," + "\n" +
" MODIFY_COUNT NUMBER(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_T_WORKREMINDER " + "\n" +
" ADD ( CONSTRAINT PK_WFS_T_WORKREMINDER PRIMARY KEY (WORK_ID, OBJECT_ID, STEP, REMINDER_ID) USING INDEX ) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_T_WORKAPPROVALRES
if (!table_exists('WFS_T_WORKAPPROVALRES')) {
executeSQL(
" CREATE TABLE WFS_T_WORKAPPROVALRES " + "\n" +
" (" + "\n" +
" WORK_ID VARCHAR2(100) NOT NULL," + "\n" +
" OBJECT_ID VARCHAR2(100) NOT NULL," + "\n" +
" LVL DECIMAL(10,0) NOT NULL," + "\n" +
" ROUTE_ID VARCHAR2(100) ," + "\n" +
" USR_GRP_ID VARCHAR2(100) ," + "\n" +
" USR_ID VARCHAR2(100) NOT NULL," + "\n" +
" CREATED_DATE DATE ," + "\n" +
" CREATED_BY VARCHAR2(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR2(50) ," + "\n" +
" UPDATED_DATE DATE ," + "\n" +
" UPDATED_BY VARCHAR2(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR2(50) ," + "\n" +
" MODIFY_COUNT NUMBER(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_T_WORKAPPROVALRES " + "\n" +
" ADD ( CONSTRAINT PK_WFS_T_WORKAPPROVALRES PRIMARY KEY (WORK_ID, OBJECT_ID, LVL, USR_ID) USING INDEX ) " + "\n" +
"");
}
}
if ( TALON.getDbConfig().isMy() ) {
//--------------------------------------
//[変更]WFS_M_CONTROL
if (!field_exists('WFS_M_AUTH','SYONIN_PTN')) {
executeSQL(
"ALTER TABLE WFS_M_AUTH " +
"ADD COLUMN SYONIN_PTN VARCHAR(20) NULL " +
"");
}
//--------------------------------------
//[変更]WFS_M_CONTROL
if (!field_exists('WFS_M_CONTROL','APPROVAL_FLG')) {
executeSQL(
"ALTER TABLE WFS_M_CONTROL " +
"CHANGE COLUMN MAIL_TEXT_KESSAI MAIL_TEXT_KESSAI TEXT NULL DEFAULT NULL , " +
"CHANGE COLUMN MAIL_TEXT_SINSEI MAIL_TEXT_SINSEI TEXT NULL DEFAULT NULL , " +
"CHANGE COLUMN MAIL_TEXT_SYONIN MAIL_TEXT_SYONIN TEXT NULL DEFAULT NULL , " +
"CHANGE COLUMN MAIL_TEXT_HININ MAIL_TEXT_HININ TEXT NULL DEFAULT NULL , " +
"ADD COLUMN APPROVAL_FLG VARCHAR(20) NULL , " +
"ADD COLUMN ROUTE_SET_KBN VARCHAR(50) NULL , " +
"ADD COLUMN ROUTE_STRUCT_ID VARCHAR(50) NULL , " +
"ADD COLUMN MAIL_TITLE_HININ2 VARCHAR(100) NULL , " +
"ADD COLUMN MAIL_TEXT_HININ2 TEXT NULL , " +
"ADD COLUMN MAIL_TITLE_SAISOKU VARCHAR(100) NULL , " +
"ADD COLUMN MAIL_TEXT_SAISOKU TEXT NULL , " +
"ADD COLUMN CATEGORY_ID VARCHAR(50) NULL " +
"");
}
//--------------------------------------
//[変更]WFS_M_ROUTE_HED
if (!field_exists('WFS_M_ROUTE_HED','PARAM_FM')) {
executeSQL(
"ALTER TABLE WFS_M_ROUTE_HED " +
"ADD COLUMN PARAM_FM VARCHAR(50) NULL , " +
"ADD COLUMN PARAM_VAL VARCHAR(100) NULL , " +
"ADD COLUMN PARAM_TP VARCHAR(50) NULL , " +
"ADD COLUMN END_SEND_MAIL VARCHAR(100) NULL , " +
"ADD COLUMN DEL_FLG VARCHAR(10) NULL " +
"");
}
//--------------------------------------
//[新規]WFS_M_STRUCT_HED
if (!table_exists('WFS_M_STRUCT_HED')) {
executeSQL(
" CREATE TABLE WFS_M_STRUCT_HED " + "\n" +
" (" + "\n" +
" ID VARCHAR(50) NOT NULL," + "\n" +
" TITLE VARCHAR(100) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY VARCHAR(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY VARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR(50) ," + "\n" +
" MODIFY_COUNT BIGINT(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_STRUCT_HED " + "\n" +
" ADD CONSTRAINT PRIMARY KEY (ID)" + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_M_STRUCT_DTL
if (!table_exists('WFS_M_STRUCT_DTL')) {
executeSQL(
" CREATE TABLE WFS_M_STRUCT_DTL " + "\n" +
" (" + "\n" +
" ID VARCHAR(50) NOT NULL," + "\n" +
" SEQ INT(10) NOT NULL," + "\n" +
" CHILD_ID VARCHAR(50) ," + "\n" +
" OYA_ID VARCHAR(50) ," + "\n" +
" BOTTOM_FLG VARCHAR(10) ," + "\n" +
" SYONIN_PTN VARCHAR(20) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY VARCHAR(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY VARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR(50) ," + "\n" +
" MODIFY_COUNT BIGINT(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_STRUCT_DTL " + "\n" +
" ADD CONSTRAINT PRIMARY KEY (ID, SEQ)" + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_STRUCT_TEMP
if (!table_exists('WFS_W_STRUCT_TEMP')) {
executeSQL(
" CREATE TABLE WFS_W_STRUCT_TEMP " + "\n" +
" (" + "\n" +
" JOB_ID VARCHAR(50) NOT NULL," + "\n" +
" ID VARCHAR(50) ," + "\n" +
" SEQ INT(10) NOT NULL," + "\n" +
" CHILD_ID VARCHAR(50) ," + "\n" +
" OYA_ID VARCHAR(50) ," + "\n" +
" BOTTOM_FLG VARCHAR(10) ," + "\n" +
" SYONIN_PTN VARCHAR(20) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY VARCHAR(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY VARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR(50) ," + "\n" +
" MODIFY_COUNT BIGINT(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STRUCT_TEMP " + "\n" +
" ADD CONSTRAINT PRIMARY KEY (JOB_ID, SEQ)" + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_STRUCT_LIST
if (!table_exists('WFS_W_STRUCT_LIST')) {
executeSQL(
" CREATE TABLE WFS_W_STRUCT_LIST " + "\n" +
" (" + "\n" +
" JOB_ID VARCHAR(50) NOT NULL," + "\n" +
" ID VARCHAR(50) ," + "\n" +
" SEQ INT(10) NOT NULL," + "\n" +
" SORT VARCHAR(50) ," + "\n" +
" LVL VARCHAR(10) ," + "\n" +
" OYA_ID VARCHAR(50) ," + "\n" +
" CHILD_ID VARCHAR(50) ," + "\n" +
" SYONIN_PTN VARCHAR(20) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY VARCHAR(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY VARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR(50) ," + "\n" +
" MODIFY_COUNT BIGINT(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STRUCT_LIST " + "\n" +
" ADD CONSTRAINT PRIMARY KEY (JOB_ID, SEQ)" + "\n" +
"");
}
//--------------------------------------
//[変更]WFS_T_WORKFLOW
if (!field_exists('WFS_T_WORKFLOW','SHONIN_ID')) {
executeSQL(
"ALTER TABLE WFS_T_WORKFLOW " +
"ADD COLUMN SHONIN_ID VARCHAR(100) NULL , " +
"ADD COLUMN ACTIVE_FLG VARCHAR(20) NULL , " +
"ADD COLUMN HOLD_FLG VARCHAR(20) NULL " +
"");
}
//--------------------------------------
//[新規]WFS_W_STAT_LIST
if (!table_exists('WFS_W_STAT_LIST')) {
executeSQL(
" CREATE TABLE WFS_W_STAT_LIST " + "\n" +
" (" + "\n" +
" WORK_ID VARCHAR(100) NOT NULL ," + "\n" +
" OBJECT_ID VARCHAR(100) NOT NULL ," + "\n" +
" LVL01_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL01_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL01_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL02_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL02_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL02_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL03_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL03_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL03_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL04_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL04_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL04_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL05_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL05_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL05_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL06_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL06_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL06_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL07_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL07_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL07_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL08_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL08_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL08_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL09_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL09_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL09_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL10_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL10_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL10_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL11_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL11_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL11_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL12_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL12_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL12_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL13_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL13_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL13_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL14_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL14_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL14_US VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL15_NM VARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL15_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL15_US VARCHAR(100) DEFAULT NULL " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STAT_LIST " + "\n" +
" ADD CONSTRAINT PRIMARY KEY (WORK_ID, OBJECT_ID)" + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_M_USR_DAIRI
if (!table_exists('WFS_M_USR_DAIRI')) {
executeSQL(
" CREATE TABLE WFS_M_USR_DAIRI " + "\n" +
" (" + "\n" +
" USR_ID VARCHAR(100) NOT NULL," + "\n" +
" DAIRI_USR_ID VARCHAR(100) NOT NULL," + "\n" +
" SHINSEI_FLG VARCHAR(10) ," + "\n" +
" SHONIN_FLG VARCHAR(10) ," + "\n" +
" YUKO_KBN VARCHAR(10) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY VARCHAR(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY VARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR(50) ," + "\n" +
" MODIFY_COUNT BIGINT(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_USR_DAIRI " + "\n" +
" ADD CONSTRAINT PRIMARY KEY (USR_ID, DAIRI_USR_ID)" + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_T_WORKREMINDER
if (!table_exists('WFS_T_WORKREMINDER')) {
executeSQL(
" CREATE TABLE WFS_T_WORKREMINDER " + "\n" +
" (" + "\n" +
" WORK_ID VARCHAR(100) NOT NULL," + "\n" +
" OBJECT_ID VARCHAR(100) NOT NULL," + "\n" +
" STEP DECIMAL(10,0) NOT NULL," + "\n" +
" REMINDER_ID VARCHAR(100) NOT NULL," + "\n" +
" ROUTE_ID VARCHAR(100) ," + "\n" +
" LVL DECIMAL(10,0) ," + "\n" +
" RES_MEMO VARCHAR(4000) ," + "\n" +
" SEND_ADDRESS VARCHAR(500) ," + "\n" +
" SEND_TITLE VARCHAR(500) ," + "\n" +
" SEND_TEXT VARCHAR(4000) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY VARCHAR(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY VARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR(50) ," + "\n" +
" MODIFY_COUNT BIGINT(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_T_WORKREMINDER " + "\n" +
" ADD CONSTRAINT PRIMARY KEY (WORK_ID, OBJECT_ID, STEP, REMINDER_ID)" + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_T_WORKAPPROVALRES
if (!table_exists('WFS_T_WORKAPPROVALRES')) {
executeSQL(
" CREATE TABLE WFS_T_WORKAPPROVALRES " + "\n" +
" (" + "\n" +
" WORK_ID VARCHAR(100) NOT NULL," + "\n" +
" OBJECT_ID VARCHAR(100) NOT NULL," + "\n" +
" LVL DECIMAL(10,0) NOT NULL," + "\n" +
" ROUTE_ID VARCHAR(100) ," + "\n" +
" USR_GRP_ID VARCHAR(100) ," + "\n" +
" USR_ID VARCHAR(100) NOT NULL," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY VARCHAR(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY VARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR(50) ," + "\n" +
" MODIFY_COUNT BIGINT(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_T_WORKAPPROVALRES " + "\n" +
" ADD CONSTRAINT PRIMARY KEY (WORK_ID, OBJECT_ID, LVL, USR_ID)" + "\n" +
"");
}
};
if ( TALON.getDbConfig().isMssql() ) {
//--------------------------------------
//[変更]WFS_M_CONTROL
if (!field_exists('WFS_M_AUTH','SYONIN_PTN')) {
executeSQL(
"ALTER TABLE WFS_M_AUTH ADD " +
"SYONIN_PTN NVARCHAR(20) NULL " +
"");
}
//--------------------------------------
//[変更]WFS_M_CONTROL
if (!field_exists('WFS_M_CONTROL','APPROVAL_FLG')) {
executeSQL(
"ALTER TABLE WFS_M_CONTROL ALTER COLUMN MAIL_TEXT_KESSAI NVARCHAR(3000) ; " +
"");
executeSQL(
"ALTER TABLE WFS_M_CONTROL ALTER COLUMN MAIL_TEXT_SINSEI NVARCHAR(3000) ; " +
"");
executeSQL(
"ALTER TABLE WFS_M_CONTROL ALTER COLUMN MAIL_TEXT_SYONIN NVARCHAR(3000) ; " +
"");
executeSQL(
"ALTER TABLE WFS_M_CONTROL ALTER COLUMN MAIL_TEXT_HININ NVARCHAR(3000) ; " +
"");
executeSQL(
"ALTER TABLE WFS_M_CONTROL ADD " +
"APPROVAL_FLG NVARCHAR(20) NULL , " +
"ROUTE_SET_KBN NVARCHAR(50) NULL , " +
"ROUTE_STRUCT_ID NVARCHAR(50) NULL , " +
"MAIL_TITLE_HININ2 NVARCHAR(100) NULL , " +
"MAIL_TEXT_HININ2 NVARCHAR(3000) NULL , " +
"MAIL_TITLE_SAISOKU NVARCHAR(100) NULL , " +
"MAIL_TEXT_SAISOKU NVARCHAR(3000) NULL , " +
"CATEGORY_ID NVARCHAR(50) NULL " +
"");
}
//--------------------------------------
//[変更]WFS_M_ROUTE_HED
if (!field_exists('WFS_M_ROUTE_HED','PARAM_FM')) {
executeSQL(
"ALTER TABLE WFS_M_ROUTE_HED ADD " +
"PARAM_FM NVARCHAR(50) NULL , " +
"PARAM_VAL NVARCHAR(100) NULL , " +
"PARAM_TP NVARCHAR(50) NULL , " +
"END_SEND_MAIL NVARCHAR(100) NULL , " +
"DEL_FLG NVARCHAR(10) NULL " +
"");
}
//--------------------------------------
//[新規]WFS_M_STRUCT_HED
if (!table_exists('WFS_M_STRUCT_HED')) {
executeSQL(
" CREATE TABLE WFS_M_STRUCT_HED " + "\n" +
" (" + "\n" +
" ID NVARCHAR(50) NOT NULL," + "\n" +
" TITLE NVARCHAR(100) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY NVARCHAR(50) ," + "\n" +
" CREATED_PRG_NM NVARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY NVARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM NVARCHAR(50) ," + "\n" +
" MODIFY_COUNT NUMERIC(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_STRUCT_HED " + "\n" +
" ADD CONSTRAINT PK_WFS_M_STRUCT_HED PRIMARY KEY NONCLUSTERED (ID) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_M_STRUCT_DTL
if (!table_exists('WFS_M_STRUCT_DTL')) {
executeSQL(
" CREATE TABLE WFS_M_STRUCT_DTL " + "\n" +
" (" + "\n" +
" ID NVARCHAR(50) NOT NULL," + "\n" +
" SEQ NUMERIC(10) NOT NULL," + "\n" +
" CHILD_ID NVARCHAR(50) ," + "\n" +
" OYA_ID NVARCHAR(50) ," + "\n" +
" BOTTOM_FLG NVARCHAR(10) ," + "\n" +
" SYONIN_PTN NVARCHAR(20) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY NVARCHAR(50) ," + "\n" +
" CREATED_PRG_NM NVARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY NVARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM NVARCHAR(50) ," + "\n" +
" MODIFY_COUNT NUMERIC(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_STRUCT_DTL " + "\n" +
" ADD CONSTRAINT PK_WFS_M_STRUCT_DTL PRIMARY KEY NONCLUSTERED (ID, SEQ) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_STRUCT_TEMP
if (!table_exists('WFS_W_STRUCT_TEMP')) {
executeSQL(
" CREATE TABLE WFS_W_STRUCT_TEMP " + "\n" +
" (" + "\n" +
" JOB_ID NVARCHAR(50) NOT NULL," + "\n" +
" ID NVARCHAR(50) ," + "\n" +
" SEQ NUMERIC(10) NOT NULL," + "\n" +
" CHILD_ID NVARCHAR(50) ," + "\n" +
" OYA_ID NVARCHAR(50) ," + "\n" +
" BOTTOM_FLG NVARCHAR(10) ," + "\n" +
" SYONIN_PTN NVARCHAR(20) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY NVARCHAR(50) ," + "\n" +
" CREATED_PRG_NM NVARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY NVARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM NVARCHAR(50) ," + "\n" +
" MODIFY_COUNT NUMERIC(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STRUCT_TEMP " + "\n" +
" ADD CONSTRAINT PK_WFS_W_STRUCT_TEMP PRIMARY KEY NONCLUSTERED (JOB_ID, SEQ) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_STRUCT_LIST
if (!table_exists('WFS_W_STRUCT_LIST')) {
executeSQL(
" CREATE TABLE WFS_W_STRUCT_LIST " + "\n" +
" (" + "\n" +
" JOB_ID NVARCHAR(50) NOT NULL," + "\n" +
" ID NVARCHAR(50) ," + "\n" +
" SEQ NUMERIC(10) NOT NULL," + "\n" +
" SORT NVARCHAR(50) ," + "\n" +
" LVL NVARCHAR(10) ," + "\n" +
" OYA_ID NVARCHAR(50) ," + "\n" +
" CHILD_ID NVARCHAR(50) ," + "\n" +
" SYONIN_PTN NVARCHAR(20) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY NVARCHAR(50) ," + "\n" +
" CREATED_PRG_NM NVARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY NVARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM NVARCHAR(50) ," + "\n" +
" MODIFY_COUNT NUMERIC(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STRUCT_LIST " + "\n" +
" ADD CONSTRAINT PK_WFS_W_STRUCT_LIST PRIMARY KEY NONCLUSTERED (JOB_ID, SEQ) " + "\n" +
"");
}
//--------------------------------------
//[変更]WFS_T_WORKFLOW
if (!field_exists('WFS_T_WORKFLOW','SHONIN_ID')) {
executeSQL(
"ALTER TABLE WFS_T_WORKFLOW ADD " +
"SHONIN_ID NVARCHAR(100) NULL , " +
"ACTIVE_FLG NVARCHAR(20) NULL , " +
"HOLD_FLG NVARCHAR(20) NULL " +
"");
}
//--------------------------------------
//[新規]WFS_W_STAT_LIST
if (!table_exists('WFS_W_STAT_LIST')) {
executeSQL(
" CREATE TABLE WFS_W_STAT_LIST " + "\n" +
" (" + "\n" +
" WORK_ID NVARCHAR(100) NOT NULL ," + "\n" +
" OBJECT_ID NVARCHAR(100) NOT NULL ," + "\n" +
" LVL01_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL01_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL01_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL02_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL02_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL02_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL03_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL03_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL03_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL04_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL04_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL04_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL05_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL05_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL05_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL06_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL06_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL06_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL07_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL07_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL07_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL08_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL08_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL08_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL09_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL09_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL09_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL10_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL10_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL10_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL11_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL11_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL11_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL12_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL12_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL12_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL13_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL13_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL13_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL14_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL14_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL14_US NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL15_NM NVARCHAR(100) DEFAULT NULL ," + "\n" +
" LVL15_DT DATETIME DEFAULT NULL ," + "\n" +
" LVL15_US NVARCHAR(100) DEFAULT NULL " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STAT_LIST " + "\n" +
" ADD CONSTRAINT PK_WFS_W_STAT_LIST PRIMARY KEY NONCLUSTERED (WORK_ID, OBJECT_ID) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_M_USR_DAIRI
if (!table_exists('WFS_M_USR_DAIRI')) {
executeSQL(
" CREATE TABLE WFS_M_USR_DAIRI " + "\n" +
" (" + "\n" +
" USR_ID NVARCHAR(100) NOT NULL," + "\n" +
" DAIRI_USR_ID NVARCHAR(100) NOT NULL," + "\n" +
" SHINSEI_FLG NVARCHAR(10) ," + "\n" +
" SHONIN_FLG NVARCHAR(10) ," + "\n" +
" YUKO_KBN NVARCHAR(10) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY NVARCHAR(50) ," + "\n" +
" CREATED_PRG_NM NVARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY NVARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM NVARCHAR(50) ," + "\n" +
" MODIFY_COUNT NUMERIC(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_USR_DAIRI " + "\n" +
" ADD CONSTRAINT PK_WFS_M_USR_DAIRI PRIMARY KEY NONCLUSTERED (USR_ID, DAIRI_USR_ID) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_T_WORKREMINDER
if (!table_exists('WFS_T_WORKREMINDER')) {
executeSQL(
" CREATE TABLE WFS_T_WORKREMINDER " + "\n" +
" (" + "\n" +
" WORK_ID NVARCHAR(100) NOT NULL," + "\n" +
" OBJECT_ID NVARCHAR(100) NOT NULL," + "\n" +
" STEP NUMERIC(10,0) NOT NULL," + "\n" +
" REMINDER_ID NVARCHAR(100) NOT NULL," + "\n" +
" ROUTE_ID NVARCHAR(100) ," + "\n" +
" LVL NUMERIC(10,0) ," + "\n" +
" RES_MEMO NVARCHAR(4000) ," + "\n" +
" SEND_ADDRESS NVARCHAR(500) ," + "\n" +
" SEND_TITLE NVARCHAR(500) ," + "\n" +
" SEND_TEXT NVARCHAR(4000) ," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY NVARCHAR(50) ," + "\n" +
" CREATED_PRG_NM NVARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY NVARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM NVARCHAR(50) ," + "\n" +
" MODIFY_COUNT NUMERIC(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_T_WORKREMINDER " + "\n" +
" ADD CONSTRAINT PK_WFS_T_WORKREMINDER PRIMARY KEY NONCLUSTERED (WORK_ID, OBJECT_ID, STEP, REMINDER_ID) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_T_WORKAPPROVALRES
if (!table_exists('WFS_T_WORKAPPROVALRES')) {
executeSQL(
" CREATE TABLE WFS_T_WORKAPPROVALRES " + "\n" +
" (" + "\n" +
" WORK_ID NVARCHAR(100) NOT NULL," + "\n" +
" OBJECT_ID NVARCHAR(100) NOT NULL," + "\n" +
" LVL NUMERIC(10,0) NOT NULL," + "\n" +
" ROUTE_ID NVARCHAR(100) ," + "\n" +
" USR_GRP_ID NVARCHAR(100) ," + "\n" +
" USR_ID NVARCHAR(100) NOT NULL," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY NVARCHAR(50) ," + "\n" +
" CREATED_PRG_NM NVARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY NVARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM NVARCHAR(50) ," + "\n" +
" MODIFY_COUNT NUMERIC(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_T_WORKAPPROVALRES " + "\n" +
" ADD CONSTRAINT PK_WFS_T_WORKAPPROVALRES PRIMARY KEY NONCLUSTERED (WORK_ID, OBJECT_ID, LVL, USR_ID) " + "\n" +
"");
}
};
if ( TALON.getDbConfig().isPostgres() ) {
//--------------------------------------
//[変更]WFS_M_CONTROL
if (!field_exists('WFS_M_AUTH','SYONIN_PTN')) {
executeSQL(
"ALTER TABLE WFS_M_AUTH " +
"ADD SYONIN_PTN character varying(20) NULL " +
"");
}
//--------------------------------------
//[変更]WFS_M_CONTROL
if (!field_exists('WFS_M_CONTROL','APPROVAL_FLG')) {
executeSQL(
"ALTER TABLE WFS_M_CONTROL " +
"ALTER COLUMN MAIL_TEXT_KESSAI TYPE character varying(3000) , " +
"ALTER COLUMN MAIL_TEXT_SINSEI TYPE character varying(3000) , " +
"ALTER COLUMN MAIL_TEXT_SYONIN TYPE character varying(3000) , " +
"ALTER COLUMN MAIL_TEXT_HININ TYPE character varying(3000) " +
"");
executeSQL(
"ALTER TABLE WFS_M_CONTROL " +
"ADD APPROVAL_FLG character varying(20) NULL , " +
"ADD ROUTE_SET_KBN character varying(50) NULL , " +
"ADD ROUTE_STRUCT_ID character varying(50) NULL , " +
"ADD MAIL_TITLE_HININ2 character varying(100) NULL , " +
"ADD MAIL_TEXT_HININ2 character varying(3000) NULL , " +
"ADD MAIL_TITLE_SAISOKU character varying(100) NULL , " +
"ADD MAIL_TEXT_SAISOKU character varying(3000) NULL , " +
"ADD CATEGORY_ID character varying(50) NULL " +
"");
}
//--------------------------------------
//[変更]WFS_M_ROUTE_HED
if (!field_exists('WFS_M_ROUTE_HED','PARAM_FM')) {
executeSQL(
"ALTER TABLE WFS_M_ROUTE_HED " +
"ADD PARAM_FM character varying(50) NULL , " +
"ADD PARAM_VAL character varying(100) NULL , " +
"ADD PARAM_TP character varying(50) NULL , " +
"ADD END_SEND_MAIL character varying(100) NULL , " +
"ADD DEL_FLG character varying(10) NULL " +
"");
}
//--------------------------------------
//[新規]WFS_M_STRUCT_HED
if (!table_exists('WFS_M_STRUCT_HED')) {
executeSQL(
" CREATE TABLE WFS_M_STRUCT_HED " + "\n" +
" (" + "\n" +
" ID character varying(50) NOT NULL," + "\n" +
" TITLE character varying(100) ," + "\n" +
" CREATED_DATE timestamp ," + "\n" +
" CREATED_BY character varying(50) ," + "\n" +
" CREATED_PRG_NM character varying(50) ," + "\n" +
" UPDATED_DATE timestamp ," + "\n" +
" UPDATED_BY character varying(50) ," + "\n" +
" UPDATED_PRG_NM character varying(50) ," + "\n" +
" MODIFY_COUNT numeric(10,0) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_STRUCT_HED " + "\n" +
" ADD CONSTRAINT PK_WFS_M_STRUCT_HED PRIMARY KEY (ID) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_M_STRUCT_DTL
if (!table_exists('WFS_M_STRUCT_DTL')) {
executeSQL(
" CREATE TABLE WFS_M_STRUCT_DTL " + "\n" +
" (" + "\n" +
" ID character varying(50) NOT NULL," + "\n" +
" SEQ numeric(10,0) NOT NULL," + "\n" +
" CHILD_ID character varying(50) ," + "\n" +
" OYA_ID character varying(50) ," + "\n" +
" BOTTOM_FLG character varying(10) ," + "\n" +
" SYONIN_PTN character varying(20) ," + "\n" +
" CREATED_DATE timestamp ," + "\n" +
" CREATED_BY character varying(50) ," + "\n" +
" CREATED_PRG_NM character varying(50) ," + "\n" +
" UPDATED_DATE timestamp ," + "\n" +
" UPDATED_BY character varying(50) ," + "\n" +
" UPDATED_PRG_NM character varying(50) ," + "\n" +
" MODIFY_COUNT numeric(10,0) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_STRUCT_DTL " + "\n" +
" ADD CONSTRAINT PK_WFS_M_STRUCT_DTL PRIMARY KEY (ID, SEQ) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_STRUCT_TEMP
if (!table_exists('WFS_W_STRUCT_TEMP')) {
executeSQL(
" CREATE TABLE WFS_W_STRUCT_TEMP " + "\n" +
" (" + "\n" +
" JOB_ID character varying(50) NOT NULL," + "\n" +
" ID character varying(50) ," + "\n" +
" SEQ numeric(10,0) NOT NULL," + "\n" +
" CHILD_ID character varying(50) ," + "\n" +
" OYA_ID character varying(50) ," + "\n" +
" BOTTOM_FLG character varying(10) ," + "\n" +
" SYONIN_PTN character varying(20) ," + "\n" +
" CREATED_DATE timestamp ," + "\n" +
" CREATED_BY character varying(50) ," + "\n" +
" CREATED_PRG_NM character varying(50) ," + "\n" +
" UPDATED_DATE timestamp ," + "\n" +
" UPDATED_BY character varying(50) ," + "\n" +
" UPDATED_PRG_NM character varying(50) ," + "\n" +
" MODIFY_COUNT numeric(10,0) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STRUCT_TEMP " + "\n" +
" ADD CONSTRAINT PK_WFS_W_STRUCT_TEMP PRIMARY KEY (JOB_ID, SEQ) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_STRUCT_LIST
if (!table_exists('WFS_W_STRUCT_LIST')) {
executeSQL(
" CREATE TABLE WFS_W_STRUCT_LIST " + "\n" +
" (" + "\n" +
" JOB_ID character varying(50) NOT NULL," + "\n" +
" ID character varying(50) ," + "\n" +
" SEQ numeric(10,0) NOT NULL," + "\n" +
" SORT character varying(50) ," + "\n" +
" LVL character varying(10) ," + "\n" +
" OYA_ID character varying(50) ," + "\n" +
" CHILD_ID character varying(50) ," + "\n" +
" SYONIN_PTN character varying(20) ," + "\n" +
" CREATED_DATE timestamp ," + "\n" +
" CREATED_BY character varying(50) ," + "\n" +
" CREATED_PRG_NM character varying(50) ," + "\n" +
" UPDATED_DATE timestamp ," + "\n" +
" UPDATED_BY character varying(50) ," + "\n" +
" UPDATED_PRG_NM character varying(50) ," + "\n" +
" MODIFY_COUNT numeric(10,0) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STRUCT_LIST " + "\n" +
" ADD CONSTRAINT PK_WFS_W_STRUCT_LIST PRIMARY KEY (JOB_ID, SEQ) " + "\n" +
"");
}
//--------------------------------------
//[変更]WFS_T_WORKFLOW
if (!field_exists('WFS_T_WORKFLOW','SHONIN_ID')) {
executeSQL(
"ALTER TABLE WFS_T_WORKFLOW " +
"ADD SHONIN_ID character varying(100) NULL , " +
"ADD ACTIVE_FLG character varying(20) NULL , " +
"ADD HOLD_FLG character varying(20) NULL " +
"");
}
//--------------------------------------
//[新規]WFS_W_STAT_LIST
if (!table_exists('WFS_W_STAT_LIST')) {
executeSQL(
" CREATE TABLE WFS_W_STAT_LIST " + "\n" +
" (" + "\n" +
" WORK_ID character varying(100) NOT NULL ," + "\n" +
" OBJECT_ID character varying(100) NOT NULL ," + "\n" +
" LVL01_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL01_DT timestamp DEFAULT NULL ," + "\n" +
" LVL01_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL02_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL02_DT timestamp DEFAULT NULL ," + "\n" +
" LVL02_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL03_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL03_DT timestamp DEFAULT NULL ," + "\n" +
" LVL03_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL04_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL04_DT timestamp DEFAULT NULL ," + "\n" +
" LVL04_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL05_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL05_DT timestamp DEFAULT NULL ," + "\n" +
" LVL05_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL06_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL06_DT timestamp DEFAULT NULL ," + "\n" +
" LVL06_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL07_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL07_DT timestamp DEFAULT NULL ," + "\n" +
" LVL07_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL08_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL08_DT timestamp DEFAULT NULL ," + "\n" +
" LVL08_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL09_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL09_DT timestamp DEFAULT NULL ," + "\n" +
" LVL09_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL10_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL10_DT timestamp DEFAULT NULL ," + "\n" +
" LVL10_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL11_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL11_DT timestamp DEFAULT NULL ," + "\n" +
" LVL11_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL12_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL12_DT timestamp DEFAULT NULL ," + "\n" +
" LVL12_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL13_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL13_DT timestamp DEFAULT NULL ," + "\n" +
" LVL13_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL14_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL14_DT timestamp DEFAULT NULL ," + "\n" +
" LVL14_US character varying(100) DEFAULT NULL ," + "\n" +
" LVL15_NM character varying(100) DEFAULT NULL ," + "\n" +
" LVL15_DT timestamp DEFAULT NULL ," + "\n" +
" LVL15_US character varying(100) DEFAULT NULL " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_STAT_LIST " + "\n" +
" ADD CONSTRAINT PK_WFS_W_STAT_LIST PRIMARY KEY (WORK_ID, OBJECT_ID) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_M_USR_DAIRI
if (!table_exists('WFS_M_USR_DAIRI')) {
executeSQL(
" CREATE TABLE WFS_M_USR_DAIRI " + "\n" +
" (" + "\n" +
" USR_ID character varying(100) NOT NULL," + "\n" +
" DAIRI_USR_ID character varying(100) NOT NULL," + "\n" +
" SHINSEI_FLG character varying(10) ," + "\n" +
" SHONIN_FLG character varying(10) ," + "\n" +
" YUKO_KBN character varying(10) ," + "\n" +
" CREATED_DATE timestamp ," + "\n" +
" CREATED_BY character varying(50) ," + "\n" +
" CREATED_PRG_NM character varying(50) ," + "\n" +
" UPDATED_DATE timestamp ," + "\n" +
" UPDATED_BY character varying(50) ," + "\n" +
" UPDATED_PRG_NM character varying(50) ," + "\n" +
" MODIFY_COUNT numeric(10,0) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_M_USR_DAIRI " + "\n" +
" ADD CONSTRAINT PK_WFS_M_USR_DAIRI PRIMARY KEY (USR_ID, DAIRI_USR_ID) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_T_WORKREMINDER
if (!table_exists('WFS_T_WORKREMINDER')) {
executeSQL(
" CREATE TABLE WFS_T_WORKREMINDER " + "\n" +
" (" + "\n" +
" WORK_ID character varying(100) NOT NULL," + "\n" +
" OBJECT_ID character varying(100) NOT NULL," + "\n" +
" STEP numeric(10,0) NOT NULL," + "\n" +
" REMINDER_ID character varying(100) NOT NULL," + "\n" +
" ROUTE_ID character varying(100) ," + "\n" +
" LVL numeric(10,0) ," + "\n" +
" RES_MEMO character varying(4000) ," + "\n" +
" SEND_ADDRESS character varying(500) ," + "\n" +
" SEND_TITLE character varying(500) ," + "\n" +
" SEND_TEXT character varying(4000) ," + "\n" +
" CREATED_DATE timestamp ," + "\n" +
" CREATED_BY character varying(50) ," + "\n" +
" CREATED_PRG_NM character varying(50) ," + "\n" +
" UPDATED_DATE timestamp ," + "\n" +
" UPDATED_BY character varying(50) ," + "\n" +
" UPDATED_PRG_NM character varying(50) ," + "\n" +
" MODIFY_COUNT numeric(10,0) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_T_WORKREMINDER " + "\n" +
" ADD CONSTRAINT PK_WFS_T_WORKREMINDER PRIMARY KEY (WORK_ID, OBJECT_ID, STEP, REMINDER_ID) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_T_WORKAPPROVALRES
if (!table_exists('WFS_T_WORKAPPROVALRES')) {
executeSQL(
" CREATE TABLE WFS_T_WORKAPPROVALRES " + "\n" +
" (" + "\n" +
" WORK_ID character varying(100) NOT NULL," + "\n" +
" OBJECT_ID character varying(100) NOT NULL," + "\n" +
" LVL numeric(10,0) NOT NULL," + "\n" +
" ROUTE_ID character varying(100) ," + "\n" +
" USR_GRP_ID character varying(100) ," + "\n" +
" USR_ID character varying(100) NOT NULL," + "\n" +
" CREATED_DATE timestamp ," + "\n" +
" CREATED_BY character varying(50) ," + "\n" +
" CREATED_PRG_NM character varying(50) ," + "\n" +
" UPDATED_DATE timestamp ," + "\n" +
" UPDATED_BY character varying(50) ," + "\n" +
" UPDATED_PRG_NM character varying(50) ," + "\n" +
" MODIFY_COUNT numeric(10,0) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_T_WORKAPPROVALRES " + "\n" +
" ADD CONSTRAINT PK_WFS_T_WORKAPPROVALRES PRIMARY KEY (WORK_ID, OBJECT_ID, LVL, USR_ID) " + "\n" +
"");
}
};
}
function exec_ver_up_patch_14_DataPatch(){
//データパッチ処理 : バージョンアップに伴いデータ修正が必要となった際のパッチ処理
//------------------------------
// WFS_T_WORKFLOW の ACTIVE_FLG
// function patch_WORKFLOW_ACTIVE_FLG()
//-------
var sql = "" +
"SELECT WORK_ID , OBJECT_ID FROM WFS_T_WORKFLOW " +
"WHERE ACTIVE_FLG IS NULL " +
"GROUP BY WORK_ID , OBJECT_ID ";
var itemSelectListMain = TalonDbUtil.select( TALON.getDbConfig(), sql );
for (var i = 0; i < itemSelectListMain.length; i++) {
var lineDataMap = itemSelectListMain[i];
var _WORK_ID = getMapVal( lineDataMap , 'WORK_ID' );
var _OBJECT_ID = getMapVal( lineDataMap , 'OBJECT_ID' );
//ひとまず全ACTIVE_FLGを1にセット
var sql = "" +
"UPDATE WFS_T_WORKFLOW SET ACTIVE_FLG = '1' " +
"WHERE WORK_ID = '" + _WORK_ID + "' " +
" AND OBJECT_ID = '" + _OBJECT_ID + "' ";
TalonDbUtil.update( TALON.getDbConfig(), sql );
var sql = "" +
"SELECT WORK_ID , OBJECT_ID , STEP , STATUS , LVL FROM WFS_T_WORKFLOW " +
"WHERE WORK_ID = '" + _WORK_ID + "' " +
" AND OBJECT_ID = '" + _OBJECT_ID + "' " +
"ORDER BY STEP ";
var itemSelectListSub = TalonDbUtil.select( TALON.getDbConfig(), sql );
for (var ii = 0; ii < itemSelectListSub.length; ii++) {
var lineDataMap = itemSelectListSub[ii];
// * var _STEP = lineDataMap['STEP'];
// * var _STATUS = lineDataMap['STATUS'];
// * var _LVL = lineDataMap['LVL'];
var _STEP = getMapVal( lineDataMap , 'STEP' );
var _STATUS = getMapVal( lineDataMap , 'STATUS' );
var _LVL = getMapVal( lineDataMap , 'LVL' );
//自分より下のSTEPで、自分のLVL以上のデータはACTIVE_FLGを0
var sql = "" +
"UPDATE WFS_T_WORKFLOW SET ACTIVE_FLG = '0' " +
"WHERE WORK_ID = '" + _WORK_ID + "' " +
" AND OBJECT_ID = '" + _OBJECT_ID + "' " +
" AND STEP < " + _STEP + " " +
" AND LVL >= " + _LVL + " ";
TalonDbUtil.update( TALON.getDbConfig(), sql );
}
}
// WFS_M_CONTROL の CATEGORY_ID (nullのデータについて99を更新)
//
//-------
TalonDbUtil.update( TALON.getDbConfig(), "UPDATE WFS_M_CONTROL SET CATEGORY_ID = '99' WHERE CATEGORY_ID IS NULL ");
TalonDbUtil.update( TALON.getDbConfig(), "UPDATE WFS_M_CONTROL SET APPROVAL_FLG = '0' WHERE APPROVAL_FLG IS NULL ");
TalonDbUtil.update( TALON.getDbConfig(), "UPDATE WFS_M_CONTROL SET ROUTE_SET_KBN = '0' WHERE ROUTE_SET_KBN IS NULL ");
}
//--------------------------------------------
// Ver1.7へのバージョンアップ
//--------------------------------------------
function exec_ver_up_17( _func_chk ){
//テーブルの追加
exec_ver_up_17_TableModify();
//データのパッチ（補填）
exec_ver_up_patch_17_DataPatch();
}
function exec_ver_up_17_TableModify(){
//テーブル変更、追加処理
//------------------------------
if ( TALON.getDbConfig().isOra() ) {
//--------------------------------------
//[新規]WFS_W_WORKFLOW
if (!table_exists('WFS_W_WORKFLOW')) {
executeSQL(
" CREATE TABLE WFS_W_WORKFLOW " + "\n" +
" (" + "\n" +
" JOB_ID VARCHAR2(100) NOT NULL," + "\n" +
" WORK_ID VARCHAR2(100) NOT NULL," + "\n" +
" OBJECT_ID VARCHAR2(100) NOT NULL," + "\n" +
" STEP NUMBER(10,0) NOT NULL," + "\n" +
" OBJECT_NM VARCHAR2(500)," + "\n" +
" ROUTE_ID VARCHAR2(100)," + "\n" +
" USR_ID VARCHAR2(100)," + "\n" +
" STATUS VARCHAR2(20)," + "\n" +
" LVL NUMBER(10,0)," + "\n" +
" APP_MEMO VARCHAR2(4000)," + "\n" +
" RES_MEMO VARCHAR2(4000)," + "\n" +
" REJECT_KBN VARCHAR2(20)," + "\n" +
" CURENT_FLG VARCHAR2(20)," + "\n" +
" CREATED_DATE DATE," + "\n" +
" CREATED_BY VARCHAR2(50)," + "\n" +
" CREATED_PRG_NM VARCHAR2(50)," + "\n" +
" UPDATED_DATE DATE," + "\n" +
" UPDATED_BY VARCHAR2(50)," + "\n" +
" UPDATED_PRG_NM VARCHAR2(50)," + "\n" +
" MODIFY_COUNT NUMBER(10,0)," + "\n" +
" SHONIN_ID VARCHAR2(100)," + "\n" +
" ACTIVE_FLG VARCHAR2(20)," + "\n" +
" HOLD_FLG VARCHAR2(20) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_WORKFLOW " + "\n" +
" ADD(CONSTRAINT PK_WFS_W_WORKFLOW PRIMARY KEY (JOB_ID) USING INDEX)" + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_WORKAPPROVALRES
if (!table_exists('WFS_W_WORKAPPROVALRES')) {
executeSQL(
" CREATE TABLE WFS_W_WORKAPPROVALRES " + "\n" +
" (" + "\n" +
" JOB_ID VARCHAR2(100) NOT NULL," + "\n" +
" WORK_ID VARCHAR2(100) NOT NULL," + "\n" +
" OBJECT_ID VARCHAR2(100) NOT NULL," + "\n" +
" LVL DECIMAL(10,0) NOT NULL," + "\n" +
" ROUTE_ID VARCHAR2(100) ," + "\n" +
" USR_GRP_ID VARCHAR2(100) ," + "\n" +
" USR_ID VARCHAR2(100) NOT NULL," + "\n" +
" CREATED_DATE DATE ," + "\n" +
" CREATED_BY VARCHAR2(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR2(50) ," + "\n" +
" UPDATED_DATE DATE ," + "\n" +
" UPDATED_BY VARCHAR2(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR2(50) ," + "\n" +
" MODIFY_COUNT NUMBER(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_WORKAPPROVALRES " + "\n" +
" ADD ( CONSTRAINT PK_WFS_W_WORKAPPROVALRES PRIMARY KEY (JOB_ID, WORK_ID, OBJECT_ID, LVL, USR_ID) USING INDEX ) " + "\n" +
"");
}
}
if ( TALON.getDbConfig().isMy() ) {
//--------------------------------------
//[新規]WFS_W_WORKFLOW
if (!table_exists('WFS_W_WORKFLOW ')) {
executeSQL(
" CREATE TABLE WFS_W_WORKFLOW " + "\n" +
" (" + "\n" +
" JOB_ID VARCHAR(100) NOT NULL," + "\n" +
" WORK_ID VARCHAR(100) NOT NULL," + "\n" +
" OBJECT_ID VARCHAR(100) NOT NULL," + "\n" +
" STEP DECIMAL(10,0) NOT NULL," + "\n" +
" OBJECT_NM VARCHAR(500)," + "\n" +
" ROUTE_ID VARCHAR(100)," + "\n" +
" USR_ID VARCHAR(100)," + "\n" +
" STATUS VARCHAR(20)," + "\n" +
" LVL DECIMAL(10,0)," + "\n" +
" APP_MEMO TEXT," + "\n" +
" RES_MEMO TEXT," + "\n" +
" REJECT_KBN VARCHAR(20)," + "\n" +
" CURENT_FLG VARCHAR(20)," + "\n" +
" CREATED_DATE DATETIME," + "\n" +
" CREATED_BY VARCHAR(50)," + "\n" +
" CREATED_PRG_NM VARCHAR(50)," + "\n" +
" UPDATED_DATE DATETIME," + "\n" +
" UPDATED_BY VARCHAR(50)," + "\n" +
" UPDATED_PRG_NM VARCHAR(50)," + "\n" +
" MODIFY_COUNT BIGINT(10)," + "\n" +
" SHONIN_ID VARCHAR(100)," + "\n" +
" ACTIVE_FLG VARCHAR(20)," + "\n" +
" HOLD_FLG VARCHAR(20) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_WORKFLOW " + "\n" +
" ADD CONSTRAINT PRIMARY KEY (JOB_ID)" + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_WORKAPPROVALRES
if (!table_exists('WFS_W_WORKAPPROVALRES')) {
executeSQL(
" CREATE TABLE WFS_W_WORKAPPROVALRES " + "\n" +
" (" + "\n" +
" JOB_ID VARCHAR(100) NOT NULL," + "\n" +
" WORK_ID VARCHAR(100) NOT NULL," + "\n" +
" OBJECT_ID VARCHAR(100) NOT NULL," + "\n" +
" LVL DECIMAL(10,0) NOT NULL," + "\n" +
" ROUTE_ID VARCHAR(100) ," + "\n" +
" USR_GRP_ID VARCHAR(100) ," + "\n" +
" USR_ID VARCHAR(100) NOT NULL," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY VARCHAR(50) ," + "\n" +
" CREATED_PRG_NM VARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY VARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM VARCHAR(50) ," + "\n" +
" MODIFY_COUNT BIGINT(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_WORKAPPROVALRES " + "\n" +
" ADD CONSTRAINT PRIMARY KEY (JOB_ID, WORK_ID, OBJECT_ID, LVL, USR_ID)" + "\n" +
"");
}
};
if ( TALON.getDbConfig().isMssql() ) {
//--------------------------------------
//[新規]WFS_W_WORKFLOW
if (!table_exists('WFS_W_WORKFLOW ')) {
executeSQL(
" CREATE TABLE WFS_W_WORKFLOW " + "\n" +
" (" + "\n" +
" JOB_ID NVARCHAR(100) NOT NULL," + "\n" +
" WORK_ID NVARCHAR(100) NOT NULL," + "\n" +
" OBJECT_ID NVARCHAR(100) NOT NULL," + "\n" +
" STEP NUMERIC(10,0) NOT NULL," + "\n" +
" OBJECT_NM NVARCHAR(500) NULL," + "\n" +
" ROUTE_ID NVARCHAR(100) NULL," + "\n" +
" USR_ID NVARCHAR(100) NULL," + "\n" +
" STATUS NVARCHAR(20) NULL," + "\n" +
" LVL NUMERIC(10,0) NULL," + "\n" +
" APP_MEMO NVARCHAR(4000) NULL," + "\n" +
" RES_MEMO NVARCHAR(4000) NULL," + "\n" +
" REJECT_KBN NVARCHAR(20) NULL," + "\n" +
" CURENT_FLG NVARCHAR(20) NULL," + "\n" +
" CREATED_DATE DATETIME NULL," + "\n" +
" CREATED_BY NVARCHAR(50) NULL," + "\n" +
" CREATED_PRG_NM NVARCHAR(50) NULL," + "\n" +
" UPDATED_DATE DATETIME NULL," + "\n" +
" UPDATED_BY NVARCHAR(50) NULL," + "\n" +
" UPDATED_PRG_NM NVARCHAR(50) NULL," + "\n" +
" MODIFY_COUNT NUMERIC(10,0) NULL," + "\n" +
" SHONIN_ID NVARCHAR(100)," + "\n" +
" ACTIVE_FLG NVARCHAR(20)," + "\n" +
" HOLD_FLG NVARCHAR(20) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_WORKFLOW " + "\n" +
" ADD CONSTRAINT PK_WFS_W_WORKFLOW PRIMARY KEY NONCLUSTERED (JOB_ID)" + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_WORKAPPROVALRES
if (!table_exists('WFS_W_WORKAPPROVALRES')) {
executeSQL(
" CREATE TABLE WFS_W_WORKAPPROVALRES " + "\n" +
" (" + "\n" +
" JOB_ID NVARCHAR(100) NOT NULL," + "\n" +
" WORK_ID NVARCHAR(100) NOT NULL," + "\n" +
" OBJECT_ID NVARCHAR(100) NOT NULL," + "\n" +
" LVL NUMERIC(10,0) NOT NULL," + "\n" +
" ROUTE_ID NVARCHAR(100) ," + "\n" +
" USR_GRP_ID NVARCHAR(100) ," + "\n" +
" USR_ID NVARCHAR(100) NOT NULL," + "\n" +
" CREATED_DATE DATETIME ," + "\n" +
" CREATED_BY NVARCHAR(50) ," + "\n" +
" CREATED_PRG_NM NVARCHAR(50) ," + "\n" +
" UPDATED_DATE DATETIME ," + "\n" +
" UPDATED_BY NVARCHAR(50) ," + "\n" +
" UPDATED_PRG_NM NVARCHAR(50) ," + "\n" +
" MODIFY_COUNT NUMERIC(10) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_WORKAPPROVALRES " + "\n" +
" ADD CONSTRAINT PK_WFS_W_WORKAPPROVALRES PRIMARY KEY NONCLUSTERED (JOB_ID, WORK_ID, OBJECT_ID, LVL, USR_ID) " + "\n" +
"");
}
};
if ( TALON.getDbConfig().isPostgres() ) {
//--------------------------------------
//[新規]WFS_W_WORKFLOW
if (!table_exists('WFS_W_WORKFLOW')) {
executeSQL(
" CREATE TABLE WFS_W_WORKFLOW " + "\n" +
" (" + "\n" +
" JOB_ID character varying(100) NOT NULL," + "\n" +
" WORK_ID character varying(100) NOT NULL," + "\n" +
" OBJECT_ID character varying(100) NOT NULL," + "\n" +
" STEP numeric(10,0) NOT NULL," + "\n" +
" OBJECT_NM character varying(500)," + "\n" +
" ROUTE_ID character varying(100)," + "\n" +
" USR_ID character varying(100)," + "\n" +
" STATUS character varying(20)," + "\n" +
" LVL numeric(10,0)," + "\n" +
" APP_MEMO character varying(4000)," + "\n" +
" RES_MEMO character varying(4000)," + "\n" +
" REJECT_KBN character varying(20)," + "\n" +
" CURENT_FLG character varying(20)," + "\n" +
" CREATED_DATE timestamp," + "\n" +
" CREATED_BY character varying(50)," + "\n" +
" CREATED_PRG_NM character varying(50)," + "\n" +
" UPDATED_DATE timestamp," + "\n" +
" UPDATED_BY character varying(50)," + "\n" +
" UPDATED_PRG_NM character varying(50)," + "\n" +
" MODIFY_COUNT numeric(10,0)," + "\n" +
" SHONIN_ID character varying(100)," + "\n" +
" ACTIVE_FLG character varying(20)," + "\n" +
" HOLD_FLG character varying(20) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_WORKFLOW " + "\n" +
" ADD CONSTRAINT PK_WFS_W_WORKFLOW PRIMARY KEY (JOB_ID) " + "\n" +
"");
}
//--------------------------------------
//[新規]WFS_W_WORKAPPROVALRES
if (!table_exists('WFS_W_WORKAPPROVALRES')) {
executeSQL(
" CREATE TABLE WFS_W_WORKAPPROVALRES " + "\n" +
" (" + "\n" +
" JOB_ID character varying(100) NOT NULL," + "\n" +
" WORK_ID character varying(100) NOT NULL," + "\n" +
" OBJECT_ID character varying(100) NOT NULL," + "\n" +
" LVL numeric(10,0) NOT NULL," + "\n" +
" ROUTE_ID character varying(100) ," + "\n" +
" USR_GRP_ID character varying(100) ," + "\n" +
" USR_ID character varying(100) NOT NULL," + "\n" +
" CREATED_DATE timestamp ," + "\n" +
" CREATED_BY character varying(50) ," + "\n" +
" CREATED_PRG_NM character varying(50) ," + "\n" +
" UPDATED_DATE timestamp ," + "\n" +
" UPDATED_BY character varying(50) ," + "\n" +
" UPDATED_PRG_NM character varying(50) ," + "\n" +
" MODIFY_COUNT numeric(10,0) " + "\n" +
" )" + "\n" +
"");
//--------------------
executeSQL(
" ALTER TABLE WFS_W_WORKAPPROVALRES " + "\n" +
" ADD CONSTRAINT PK_WFS_W_WORKAPPROVALRES PRIMARY KEY (JOB_ID, WORK_ID, OBJECT_ID, LVL, USR_ID) " + "\n" +
"");
}
};
}
function exec_ver_up_patch_17_DataPatch(){
}
function exec_create_Function() {
//≪FUNCTION DROP≫
//--------------------
//[FUNCTION]WFS_ALL_MAIL
function_exists_drop('WFS_ALL_MAIL');
//[FUNCTION]WFS_AUTH_SHINSEI
function_exists_drop('WFS_AUTH_SHINSEI');
//[FUNCTION]WFS_WF_EXISTS
function_exists_drop('WFS_WF_EXISTS');
//[FUNCTION]Ver14追加分 WFS_AUTH_MAIN
function_exists_drop('WFS_AUTH_MAIN');
//[FUNCTION]Ver14追加分 WFS_AUTH_SHONIN
function_exists_drop('WFS_AUTH_SHONIN');
//[FUNCTION]Ver14追加分 WFS_WF_STEP
function_exists_drop('WFS_WF_STEP');
if ( TALON.getDbConfig().isOra() ) {
//--------------------
//WFS_ALL_MAIL
executeSQL(
"CREATE FUNCTION WFS_ALL_MAIL( " + "\n" +
" P_USR_GRP_ID IN VARCHAR2 " + "\n" +
" ,P_USR_ID IN VARCHAR2 " + "\n" +
" ,P_WORK_ID IN VARCHAR2 " + "\n" +
" ,P_OBJECT_ID IN VARCHAR2 " + "\n" +
" ,P_LVL IN DECIMAL " + "\n" +
" ) " + "\n" +
"RETURN VARCHAR2 " + "\n" +
"AS " + "\n" +
" REC VARCHAR2(4000); " + "\n" +
" TMP VARCHAR2(100); " + "\n" +
"BEGIN " + "\n" +
" REC := NULL; " + "\n" +
" TMP := NULL; " + "\n" +
" " + "\n" +
" DECLARE " + "\n" +
" CURSOR CUR_MAIL IS " + "\n" +
" SELECT " + "\n" +
" WFS_M_USR_GRP_DEPDTL.MAIL as MAIL " + "\n" +
" FROM WFS_M_USR_GRP_DEPDTL " + "\n" +
" LEFT OUTER JOIN ( " + "\n" +
" SELECT " + "\n" +
" COUNT(*) AS CNT " + "\n" +
" FROM WFS_T_WORKAPPROVALRES " + "\n" +
" WHERE WORK_ID = P_WORK_ID " + "\n" +
" AND OBJECT_ID = P_OBJECT_ID " + "\n" +
" AND LVL = P_LVL " + "\n" +
" ) WFS_T_WORKAPPROVALRES_CNT " + "\n" +
" ON 1 = 1 " + "\n" +
" LEFT OUTER JOIN ( " + "\n" +
" SELECT " + "\n" +
" USR_ID " + "\n" +
" FROM WFS_T_WORKAPPROVALRES " + "\n" +
" WHERE WORK_ID = P_WORK_ID " + "\n" +
" AND OBJECT_ID = P_OBJECT_ID " + "\n" +
" AND LVL = P_LVL " + "\n" +
" ) WFS_T_WORKAPPROVALRES " + "\n" +
" ON WFS_M_USR_GRP_DEPDTL.USR_ID = WFS_T_WORKAPPROVALRES.USR_ID " + "\n" +
" WHERE WFS_M_USR_GRP_DEPDTL.USR_GRP_ID = P_USR_GRP_ID " + "\n" +
" AND (WFS_M_USR_GRP_DEPDTL.USR_ID = P_USR_ID OR P_USR_ID IS NULL) " + "\n" +
" AND ( " + "\n" +
" WFS_T_WORKAPPROVALRES_CNT.CNT IS NULL " + "\n" +
" OR " + "\n" +
" WFS_T_WORKAPPROVALRES_CNT.CNT = 0 " + "\n" +
" OR " + "\n" +
" ( " + "\n" +
" WFS_T_WORKAPPROVALRES_CNT.CNT IS NOT NULL " + "\n" +
" AND " + "\n" +
" WFS_M_USR_GRP_DEPDTL.USR_ID = WFS_T_WORKAPPROVALRES.USR_ID " + "\n" +
" ) " + "\n" +
" ); " + "\n" +
" BEGIN " + "\n" +
" FOR RCD IN CUR_MAIL LOOP " + "\n" +
" IF (RCD.MAIL IS NOT NULL) THEN " + "\n" +
" IF (REC IS NULL) THEN " + "\n" +
" REC := RCD.MAIL; " + "\n" +
" ELSE " + "\n" +
" REC := REC || ',' || RCD.MAIL; " + "\n" +
" END IF; " + "\n" +
" END IF; " + "\n" +
" END LOOP; " + "\n" +
" END; " + "\n" +
" " + "\n" +
" RETURN REC; " + "\n" +
" " + "\n" +
"END WFS_ALL_MAIL; " + "\n" +
""
);
//--------------------
//WFS_AUTH_MAIN
executeSQL(
"CREATE FUNCTION WFS_AUTH_MAIN( " + "\n" +
" P_WORK_ID IN VARCHAR " + "\n" +
" ,P_ROUTE_ID IN VARCHAR " + "\n" +
" ,P_USR_ID IN VARCHAR " + "\n" +
" ,P_LVL IN DECIMAL " + "\n" +
" ,P_KBN IN VARCHAR " + "\n" +
" ) " + "\n" +
"RETURN VARCHAR2 " + "\n" +
"AS " + "\n" +
" -- P_KBN 1:申請 2:承認 " + "\n" +
" REC VARCHAR2(20); " + "\n" +
"BEGIN " + "\n" +
" REC := NULL; " + "\n" +
" " + "\n" +
" SELECT " + "\n" +
" CASE " + "\n" +
" WHEN COUNT(*) = 0 THEN '0' " + "\n" +
" ELSE '1' " + "\n" +
" END STATUS INTO REC " + "\n" +
" FROM ( " + "\n" +
" SELECT " + "\n" +
" WFS_M_AUTH.WORK_ID " + "\n" +
" ,WFS_M_AUTH.ROUTE_ID " + "\n" +
" ,WFS_M_AUTH.LVL " + "\n" +
" ,WFS_M_USR_GRP_DEPDTL.USR_ID " + "\n" +
" ,'0' AS KBN " + "\n" +
" ,'' AS SEIKI_USR_ID " + "\n" +
" FROM WFS_M_AUTH " + "\n" +
" INNER JOIN WFS_M_USR_GRP_DEPDTL " + "\n" +
" ON WFS_M_USR_GRP_DEPDTL.USR_GRP_ID = WFS_M_AUTH.USR_GRP_ID " + "\n" +
" " + "\n" +
" UNION ALL " + "\n" +
" " + "\n" +
" SELECT " + "\n" +
" WFS_M_AUTH.WORK_ID " + "\n" +
" ,WFS_M_AUTH.ROUTE_ID " + "\n" +
" ,WFS_M_AUTH.LVL " + "\n" +
" ,WFS_M_USR_DAIRI.DAIRI_USR_ID AS USR_ID " + "\n" +
" ,'1' AS KBN " + "\n" +
" ,WFS_M_USR_DAIRI.USR_ID AS SEIKI_USR_ID " + "\n" +
" FROM WFS_M_AUTH " + "\n" +
" INNER JOIN WFS_M_USR_GRP_DEPDTL " + "\n" +
" ON WFS_M_AUTH.USR_GRP_ID = WFS_M_USR_GRP_DEPDTL.USR_GRP_ID " + "\n" +
" INNER JOIN WFS_M_USR_DAIRI " + "\n" +
" ON WFS_M_USR_GRP_DEPDTL.USR_ID = WFS_M_USR_DAIRI.USR_ID " + "\n" +
" AND WFS_M_USR_DAIRI.YUKO_KBN = '1' " + "\n" +
" AND WFS_M_USR_DAIRI.SHINSEI_FLG = CASE WHEN P_KBN = '1' THEN '1' ELSE '0' END " + "\n" +
" AND WFS_M_USR_DAIRI.SHONIN_FLG = CASE WHEN P_KBN = '2' THEN '1' ELSE '0' END " + "\n" +
" ) MN " + "\n" +
" WHERE MN.WORK_ID = P_WORK_ID " + "\n" +
" AND MN.ROUTE_ID = P_ROUTE_ID " + "\n" +
" AND MN.LVL = P_LVL " + "\n" +
" AND MN.USR_ID = P_USR_ID " + "\n" +
" ; " + "\n" +
" " + "\n" +
" RETURN REC; " + "\n" +
" " + "\n" +
" END WFS_AUTH_MAIN; " + "\n" +
""
);
//--------------------
//WFS_AUTH_SHINSEI
executeSQL(
"CREATE FUNCTION WFS_AUTH_SHINSEI ( " + "\n" +
" P_WORK_ID VARCHAR2 " + "\n" +
" ,P_ROUTE_ID VARCHAR2 " + "\n" +
" ,P_USR_ID VARCHAR2 " + "\n" +
") " + "\n" +
"RETURN VARCHAR2 " + "\n" +
"AS " + "\n" +
" REC VARCHAR2(20); " + "\n" +
"BEGIN " + "\n" +
" REC := WFS_AUTH_MAIN(P_WORK_ID,P_ROUTE_ID,P_USR_ID,1,'1'); " + "\n" +
" RETURN REC; " + "\n" +
"END WFS_AUTH_SHINSEI; " + "\n" +
""
);
//--------------------
//WFS_AUTH_SHINSEI
executeSQL(
"CREATE FUNCTION WFS_AUTH_SHONIN ( " + "\n" +
" P_WORK_ID VARCHAR2 " + "\n" +
" ,P_ROUTE_ID VARCHAR2 " + "\n" +
" ,P_USR_ID VARCHAR2 " + "\n" +
" ,P_LVL DECIMAL " + "\n" +
") " + "\n" +
"RETURN VARCHAR2 " + "\n" +
"AS " + "\n" +
" REC VARCHAR2(20); " + "\n" +
"BEGIN " + "\n" +
" REC := WFS_AUTH_MAIN(P_WORK_ID,P_ROUTE_ID,P_USR_ID,P_LVL,'2'); " + "\n" +
" RETURN REC; " + "\n" +
"END WFS_AUTH_SHONIN; " + "\n" +
""
);
//--------------------
//WFS_WF_EXISTS
executeSQL(
"CREATE FUNCTION WFS_WF_EXISTS( " + "\n" +
" P_WORK_ID VARCHAR2 " + "\n" +
" ,P_OBJECT_ID VARCHAR2 " + "\n" +
") " + "\n" +
"RETURN VARCHAR2 " + "\n" +
"AS " + "\n" +
" REC VARCHAR2(20); " + "\n" +
"BEGIN " + "\n" +
" REC := NULL; " + "\n" +
" " + "\n" +
" SELECT " + "\n" +
" CASE " + "\n" +
" WHEN COUNT(*) = 0 THEN '0' " + "\n" +
" ELSE '1' " + "\n" +
" END STATUS INTO REC " + "\n" +
" FROM WFS_T_WORKFLOW " + "\n" +
" WHERE WORK_ID = P_WORK_ID " + "\n" +
" AND OBJECT_ID = P_OBJECT_ID " + "\n" +
" ; " + "\n" +
" " + "\n" +
" IF (REC = '1') THEN " + "\n" +
" SELECT " + "\n" +
" CASE " + "\n" +
" WHEN WFS_T_WORKFLOW.LVL = 1 AND STATUS <> '6' THEN '1' " + "\n" +
" WHEN WFS_T_WORKFLOW.LVL = 1 AND STATUS = '6' THEN '4' " + "\n" +
" WHEN WFS_LEVEL.LVL = WFS_T_WORKFLOW.LVL AND WFS_T_WORKFLOW.STATUS = '2' THEN '3' " + "\n" +
" WHEN WFS_T_WORKFLOW.STATUS = '9' THEN '9' " + "\n" +
" ELSE '2' " + "\n" +
" END STATUS INTO REC " + "\n" +
" FROM ( " + "\n" +
" SELECT " + "\n" +
" S1.WORK_ID " + "\n" +
" ,S1.OBJECT_ID " + "\n" +
" ,S1.STEP " + "\n" +
" ,S1.LVL " + "\n" +
" ,S1.STATUS " + "\n" +
" ,S1.ROUTE_ID " + "\n" +
" FROM WFS_T_WORKFLOW S1 " + "\n" +
" INNER JOIN ( " + "\n" +
" SELECT " + "\n" +
" WORK_ID " + "\n" +
" ,OBJECT_ID " + "\n" +
" ,MAX(STEP) AS STEP " + "\n" +
" FROM WFS_T_WORKFLOW " + "\n" +
" GROUP BY " + "\n" +
" WORK_ID " + "\n" +
" ,OBJECT_ID " + "\n" +
" ) S2 " + "\n" +
" ON S2.WORK_ID = S1.WORK_ID " + "\n" +
" AND S2.OBJECT_ID = S1.OBJECT_ID " + "\n" +
" AND S2.STEP = S1.STEP " + "\n" +
" ) WFS_T_WORKFLOW " + "\n" +
" LEFT OUTER JOIN WFS_M_CONTROL " + "\n" +
" ON WFS_M_CONTROL.WORK_ID = WFS_T_WORKFLOW.WORK_ID " + "\n" +
" LEFT OUTER JOIN ( SELECT WORK_ID, ROUTE_ID, MAX(LVL) AS LVL FROM WFS_M_AUTH GROUP BY WORK_ID, ROUTE_ID ) WFS_LEVEL " + "\n" +
" ON WFS_LEVEL.WORK_ID = WFS_T_WORKFLOW.WORK_ID " + "\n" +
" AND WFS_LEVEL.ROUTE_ID = WFS_T_WORKFLOW.ROUTE_ID " + "\n" +
" WHERE WFS_T_WORKFLOW.WORK_ID = P_WORK_ID " + "\n" +
" AND WFS_T_WORKFLOW.OBJECT_ID = P_OBJECT_ID " + "\n" +
" ; " + "\n" +
" END IF; " + "\n" +
" " + "\n" +
" RETURN REC; " + "\n" +
" " + "\n" +
"END WFS_WF_EXISTS; " + "\n" +
""
);
//--------------------
//WFS_WF_STEP
executeSQL(
"CREATE FUNCTION WFS_WF_STEP ( " + "\n" +
" P_WORK_ID VARCHAR2 " + "\n" +
" ,P_OBJECT_ID VARCHAR2 " + "\n" +
" ) " + "\n" +
"RETURN DECIMAL " + "\n" +
"AS " + "\n" +
" REC DECIMAL(10,0); " + "\n" +
"BEGIN " + "\n" +
" REC := 0; " + "\n" +
" " + "\n" +
" SELECT " + "\n" +
" MAX(STEP) AS STEP " + "\n" +
" INTO REC " + "\n" +
" FROM WFS_T_WORKFLOW " + "\n" +
" WHERE WORK_ID = P_WORK_ID " + "\n" +
" AND OBJECT_ID = P_OBJECT_ID " + "\n" +
" ; " + "\n" +
" " + "\n" +
" RETURN REC; " + "\n" +
" " + "\n" +
"END WFS_WF_STEP; " + "\n" +
""
);
};
if ( TALON.getDbConfig().isMy() ) {
//SQLファイルで作成
};
if ( TALON.getDbConfig().isMssql() ) {
//--------------------
//WFS_ALL_MAIL
executeSQL(
" CREATE FUNCTION [dbo].[WFS_ALL_MAIL]( " + "\n" +
" @P_USR_GRP_ID VARCHAR(100) " + "\n" +
" ,@P_USR_ID VARCHAR(100) " + "\n" +
" ,@P_WORK_ID VARCHAR(100) " + "\n" +
" ,@P_OBJECT_ID VARCHAR(100) " + "\n" +
" ,@P_LVL DECIMAL(10,0) " + "\n" +
" ) RETURNS VARCHAR(4000) AS " + "\n" +
" BEGIN " + "\n" +
" DECLARE @TMP VARCHAR(100) " + "\n" +
" DECLARE @REC VARCHAR(4000) " + "\n" +
" " + "\n" +
" SET @REC = NULL " + "\n" +
" " + "\n" +
" " + "\n" +
" DECLARE CUR_MAIL CURSOR FOR " + "\n" +
" SELECT " + "\n" +
" WFS_M_USR_GRP_DEPDTL.MAIL as MAIL " + "\n" +
" FROM WFS_M_USR_GRP_DEPDTL " + "\n" +
" LEFT OUTER JOIN ( " + "\n" +
" SELECT " + "\n" +
" COUNT(*) AS CNT " + "\n" +
" FROM WFS_T_WORKAPPROVALRES " + "\n" +
" WHERE WORK_ID = @P_WORK_ID " + "\n" +
" AND OBJECT_ID = @P_OBJECT_ID " + "\n" +
" AND LVL = @P_LVL " + "\n" +
" ) WFS_T_WORKAPPROVALRES_CNT " + "\n" +
" ON 1 = 1 " + "\n" +
" LEFT OUTER JOIN ( " + "\n" +
" SELECT " + "\n" +
" USR_ID " + "\n" +
" FROM WFS_T_WORKAPPROVALRES " + "\n" +
" WHERE WORK_ID = @P_WORK_ID " + "\n" +
" AND OBJECT_ID = @P_OBJECT_ID " + "\n" +
" AND LVL = @P_LVL " + "\n" +
" ) WFS_T_WORKAPPROVALRES " + "\n" +
" ON WFS_M_USR_GRP_DEPDTL.USR_ID = WFS_T_WORKAPPROVALRES.USR_ID " + "\n" +
" WHERE WFS_M_USR_GRP_DEPDTL.USR_GRP_ID = @P_USR_GRP_ID " + "\n" +
" AND (WFS_M_USR_GRP_DEPDTL.USR_ID = @P_USR_ID OR @P_USR_ID IS NULL) " + "\n" +
" AND ( " + "\n" +
" WFS_T_WORKAPPROVALRES_CNT.CNT IS NULL " + "\n" +
" OR " + "\n" +
" WFS_T_WORKAPPROVALRES_CNT.CNT = 0 " + "\n" +
" OR " + "\n" +
" ( " + "\n" +
" WFS_T_WORKAPPROVALRES_CNT.CNT IS NOT NULL " + "\n" +
" AND " + "\n" +
" WFS_M_USR_GRP_DEPDTL.USR_ID = WFS_T_WORKAPPROVALRES.USR_ID " + "\n" +
" ) " + "\n" +
" ) " + "\n" +
" " + "\n" +
" OPEN CUR_MAIL " + "\n" +
" " + "\n" +
" FETCH NEXT FROM CUR_MAIL INTO @TMP " + "\n" +
" " + "\n" +
" WHILE @@FETCH_STATUS = 0 " + "\n" +
" BEGIN " + "\n" +
" IF (@TMP IS NOT NULL) " + "\n" +
" BEGIN " + "\n" +
" IF (@REC IS NOT NULL) " + "\n" +
" BEGIN " + "\n" +
" SET @REC = @REC + ',' + @TMP " + "\n" +
" END " + "\n" +
" IF (@REC IS NULL) " + "\n" +
" BEGIN " + "\n" +
" SET @REC = @TMP " + "\n" +
" END " + "\n" +
" END " + "\n" +
" FETCH NEXT FROM CUR_MAIL INTO @TMP " + "\n" +
" END " + "\n" +
" CLOSE CUR_MAIL " + "\n" +
" DEALLOCATE CUR_MAIL " + "\n" +
" " + "\n" +
" RETURN @REC " + "\n" +
" END " + "\n" +
""
);
//--------------------
//WFS_AUTH_MAIN
executeSQL(
" CREATE FUNCTION [dbo].[WFS_AUTH_MAIN]( " + "\n" +
" @P_WORK_ID VARCHAR(100) " + "\n" +
" ,@P_ROUTE_ID VARCHAR(100) " + "\n" +
" ,@P_USR_ID VARCHAR(100) " + "\n" +
" ,@P_LVL DECIMAL(10,0) " + "\n" +
" ,@P_KBN VARCHAR(10) " + "\n" +
" ) RETURNS VARCHAR(100) AS " + "\n" +
" BEGIN " + "\n" +
" DECLARE @TMP VARCHAR(100) " + "\n" +
" DECLARE @REC VARCHAR(20) " + "\n" +
" " + "\n" +
" SET @REC = NULL " + "\n" +
" " + "\n" +
" SELECT " + "\n" +
" @REC = " + "\n" +
" CASE " + "\n" +
" WHEN COUNT(*) = 0 THEN '0' " + "\n" +
" ELSE '1' " + "\n" +
" END " + "\n" +
" FROM ( " + "\n" +
" SELECT " + "\n" +
" WFS_M_AUTH.WORK_ID " + "\n" +
" ,WFS_M_AUTH.ROUTE_ID " + "\n" +
" ,WFS_M_AUTH.LVL " + "\n" +
" ,WFS_M_USR_GRP_DEPDTL.USR_ID " + "\n" +
" ,'0' AS KBN " + "\n" +
" ,'' AS SEIKI_USR_ID " + "\n" +
" FROM WFS_M_AUTH " + "\n" +
" INNER JOIN WFS_M_USR_GRP_DEPDTL " + "\n" +
" ON WFS_M_USR_GRP_DEPDTL.USR_GRP_ID = WFS_M_AUTH.USR_GRP_ID " + "\n" +
" " + "\n" +
" UNION ALL " + "\n" +
" " + "\n" +
" SELECT " + "\n" +
" WFS_M_AUTH.WORK_ID " + "\n" +
" ,WFS_M_AUTH.ROUTE_ID " + "\n" +
" ,WFS_M_AUTH.LVL " + "\n" +
" ,WFS_M_USR_DAIRI.DAIRI_USR_ID AS USR_ID " + "\n" +
" ,'1' AS KBN " + "\n" +
" ,WFS_M_USR_DAIRI.USR_ID AS SEIKI_USR_ID " + "\n" +
" FROM WFS_M_AUTH " + "\n" +
" INNER JOIN WFS_M_USR_GRP_DEPDTL " + "\n" +
" ON WFS_M_AUTH.USR_GRP_ID = WFS_M_USR_GRP_DEPDTL.USR_GRP_ID " + "\n" +
" INNER JOIN WFS_M_USR_DAIRI " + "\n" +
" ON WFS_M_USR_GRP_DEPDTL.USR_ID = WFS_M_USR_DAIRI.USR_ID " + "\n" +
" AND WFS_M_USR_DAIRI.YUKO_KBN = '1' " + "\n" +
" AND WFS_M_USR_DAIRI.SHINSEI_FLG = CASE WHEN @P_KBN = '1' THEN '1' ELSE '0' END " + "\n" +
" AND WFS_M_USR_DAIRI.SHONIN_FLG = CASE WHEN @P_KBN = '2' THEN '1' ELSE '0' END " + "\n" +
" ) MN " + "\n" +
" WHERE MN.WORK_ID = @P_WORK_ID " + "\n" +
" AND MN.ROUTE_ID = @P_ROUTE_ID " + "\n" +
" AND MN.LVL = @P_LVL " + "\n" +
" AND MN.USR_ID = @P_USR_ID " + "\n" +
" " + "\n" +
" RETURN @REC " + "\n" +
" END " + "\n" +
""
);
//--------------------
//WFS_AUTH_SHINSEI
executeSQL(
" CREATE FUNCTION [dbo].[WFS_AUTH_SHINSEI]( " + "\n" +
" @P_WORK_ID VARCHAR(100) " + "\n" +
" ,@P_ROUTE_ID VARCHAR(100) " + "\n" +
" ,@P_USR_ID VARCHAR(100) " + "\n" +
" ) RETURNS VARCHAR(100) AS " + "\n" +
" BEGIN " + "\n" +
" DECLARE @REC VARCHAR(20) " + "\n" +
" " + "\n" +
" SET @REC = [dbo].[WFS_AUTH_MAIN](@P_WORK_ID,@P_ROUTE_ID,@P_USR_ID,1,'1') " + "\n" +
" " + "\n" +
" RETURN @REC " + "\n" +
" END " + "\n" +
""
);
//--------------------
//WFS_AUTH_SHINSEI
executeSQL(
" CREATE FUNCTION [dbo].[WFS_AUTH_SHONIN]( " + "\n" +
" @P_WORK_ID VARCHAR(100) " + "\n" +
" ,@P_ROUTE_ID VARCHAR(100) " + "\n" +
" ,@P_USR_ID VARCHAR(100) " + "\n" +
" ,@P_LVL DECIMAL(10,0) " + "\n" +
" ) RETURNS VARCHAR(100) AS " + "\n" +
" BEGIN " + "\n" +
" DECLARE @REC VARCHAR(20) " + "\n" +
" " + "\n" +
" SET @REC = [dbo].[WFS_AUTH_MAIN](@P_WORK_ID,@P_ROUTE_ID,@P_USR_ID,@P_LVL,'2') " + "\n" +
" " + "\n" +
" RETURN @REC " + "\n" +
" END " + "\n" +
""
);
//--------------------
//WFS_WF_EXISTS
executeSQL(
" CREATE FUNCTION [dbo].[WFS_WF_EXISTS]( " + "\n" +
" @P_WORK_ID VARCHAR(100) " + "\n" +
" ,@P_OBJECT_ID VARCHAR(100) " + "\n" +
" ) RETURNS VARCHAR(100) AS " + "\n" +
" BEGIN " + "\n" +
" DECLARE @TMP VARCHAR(100) " + "\n" +
" DECLARE @REC VARCHAR(20) " + "\n" +
" " + "\n" +
" SET @REC = NULL " + "\n" +
" " + "\n" +
" SELECT " + "\n" +
" @REC = " + "\n" +
" CASE " + "\n" +
" WHEN COUNT(*) = 0 THEN '0' " + "\n" +
" ELSE '1' " + "\n" +
" END " + "\n" +
" FROM WFS_T_WORKFLOW " + "\n" +
" WHERE WORK_ID = @P_WORK_ID " + "\n" +
" AND OBJECT_ID = @P_OBJECT_ID " + "\n" +
" " + "\n" +
" " + "\n" +
" IF (@REC = '1') " + "\n" +
" BEGIN " + "\n" +
" SELECT " + "\n" +
" @REC = " + "\n" +
" CASE " + "\n" +
" WHEN WFS_T_WORKFLOW.LVL = 1 AND STATUS <> '6' THEN '1' " + "\n" +
" WHEN WFS_T_WORKFLOW.LVL = 1 AND STATUS = '6' THEN '4' " + "\n" +
" WHEN WFS_LEVEL.LVL = WFS_T_WORKFLOW.LVL AND WFS_T_WORKFLOW.STATUS = '2' THEN '3' " + "\n" +
" WHEN WFS_T_WORKFLOW.STATUS = '9' THEN '9' " + "\n" +
" ELSE '2' " + "\n" +
" END " + "\n" +
" FROM ( " + "\n" +
" SELECT " + "\n" +
" S1.WORK_ID " + "\n" +
" ,S1.OBJECT_ID " + "\n" +
" ,S1.STEP " + "\n" +
" ,S1.LVL " + "\n" +
" ,S1.STATUS " + "\n" +
" ,S1.ROUTE_ID " + "\n" +
" FROM WFS_T_WORKFLOW S1 " + "\n" +
" INNER JOIN ( " + "\n" +
" SELECT " + "\n" +
" WORK_ID " + "\n" +
" ,OBJECT_ID " + "\n" +
" ,MAX(STEP) AS STEP " + "\n" +
" FROM WFS_T_WORKFLOW " + "\n" +
" GROUP BY " + "\n" +
" WORK_ID " + "\n" +
" ,OBJECT_ID " + "\n" +
" ) S2 " + "\n" +
" ON S2.WORK_ID = S1.WORK_ID " + "\n" +
" AND S2.OBJECT_ID = S1.OBJECT_ID " + "\n" +
" AND S2.STEP = S1.STEP " + "\n" +
" ) WFS_T_WORKFLOW " + "\n" +
" LEFT OUTER JOIN WFS_M_CONTROL " + "\n" +
" ON WFS_M_CONTROL.WORK_ID = WFS_T_WORKFLOW.WORK_ID " + "\n" +
" LEFT OUTER JOIN ( SELECT WORK_ID, ROUTE_ID, MAX(LVL) AS LVL FROM WFS_M_AUTH GROUP BY WORK_ID, ROUTE_ID ) WFS_LEVEL " + "\n" +
" ON WFS_LEVEL.WORK_ID = WFS_T_WORKFLOW.WORK_ID " + "\n" +
" AND WFS_LEVEL.ROUTE_ID = WFS_T_WORKFLOW.ROUTE_ID " + "\n" +
" WHERE WFS_T_WORKFLOW.WORK_ID = @P_WORK_ID " + "\n" +
" AND WFS_T_WORKFLOW.OBJECT_ID = @P_OBJECT_ID " + "\n" +
" " + "\n" +
" END " + "\n" +
" " + "\n" +
" RETURN @REC " + "\n" +
" END " + "\n" +
""
);
//--------------------
//WFS_WF_STEP
executeSQL(
" CREATE FUNCTION [dbo].[WFS_WF_STEP]( " + "\n" +
" @P_WORK_ID VARCHAR(100) " + "\n" +
" ,@P_OBJECT_ID VARCHAR(100) " + "\n" +
" ) RETURNS decimal(10,0) AS " + "\n" +
" BEGIN " + "\n" +
" DECLARE @REC DECIMAL(10,0) " + "\n" +
" " + "\n" +
" SET @REC = 0 " + "\n" +
" " + "\n" +
" SELECT " + "\n" +
" @REC = " + "\n" +
" MAX(STEP) " + "\n" +
" FROM WFS_T_WORKFLOW " + "\n" +
" WHERE WORK_ID = @P_WORK_ID " + "\n" +
" AND OBJECT_ID = @P_OBJECT_ID " + "\n" +
" " + "\n" +
" RETURN @REC " + "\n" +
" END " + "\n" +
""
);
};
if ( TALON.getDbConfig().isPostgres() ) {
//SQLファイルで作成
};
}
function exec_create_View() {
//≪VIEW DROP≫
//--------------------
//[VIEW]Ver14追加分 WFS_WF_STATUS_LIST
view_exists_drop('WFS_WF_STATUS_LIST');
//[VIEW]Ver14追加分 WFS_WF_STATUS_LIST_SUB
view_exists_drop('WFS_WF_STATUS_LIST_SUB');
if ( TALON.getDbConfig().isOra() ) {
//--------------------
//WFS_WF_STATUS_LIST_SUB
executeSQL(
"CREATE VIEW WFS_WF_STATUS_LIST_SUB AS " + "\n" +
" SELECT " + "\n" +
" WFS_T_WORKFLOW.WORK_ID AS WORK_ID, " + "\n" +
" WFS_T_WORKFLOW.OBJECT_ID AS OBJECT_ID, " + "\n" +
" WFS_T_WORKFLOW.LVL AS LVL, " + "\n" +
" MAX(WFS_T_WORKFLOW.STEP) AS STEP " + "\n" +
" FROM WFS_T_WORKFLOW " + "\n" +
" GROUP BY WFS_T_WORKFLOW.WORK_ID , WFS_T_WORKFLOW.OBJECT_ID , WFS_T_WORKFLOW.LVL " + "\n" +
""
);
//--------------------
//WFS_WF_STATUS_LIST_SUB
executeSQL(
"CREATE VIEW WFS_WF_STATUS_LIST AS " + "\n" +
" SELECT " + "\n" +
" MN.WORK_ID " + "\n" +
" ,MN.OBJECT_ID " + "\n" +
" ,MN.LVL " + "\n" +
" ,MN.STEP " + "\n" +
" ,MN.STATUS " + "\n" +
" ,MN.CREATED_BY " + "\n" +
" ,MN.CREATED_DATE " + "\n" +
" ,MN.UPDATED_BY AS WFS_ID " + "\n" +
" ,TLN_M_USER.USER_NM AS WFS_NAME " + "\n" +
" ,MN.UPDATED_DATE AS WFS_DATE " + "\n" +
" FROM WFS_T_WORKFLOW MN " + "\n" +
" INNER JOIN WFS_WF_STATUS_LIST_SUB MX " + "\n" +
" ON MX.WORK_ID = MN.WORK_ID " + "\n" +
" AND MX.OBJECT_ID = MN.OBJECT_ID " + "\n" +
" AND MX.LVL = MN.LVL " + "\n" +
" AND MX.STEP = MN.STEP " + "\n" +
" AND MN.STATUS IN ('1','2') " + "\n" +
" AND MN.ACTIVE_FLG = '1' " + "\n" +
" LEFT OUTER JOIN TLN_M_USER " + "\n" +
" ON MN.UPDATED_BY = TLN_M_USER.USER_ID " + "\n" +
""
);
};
if ( TALON.getDbConfig().isMy() ) {
//SQLファイルで作成
};
if ( TALON.getDbConfig().isMssql() ) {
//--------------------
//WFS_WF_STATUS_LIST_SUB
executeSQL(
"CREATE VIEW WFS_WF_STATUS_LIST_SUB AS " + "\n" +
" SELECT " + "\n" +
" WFS_T_WORKFLOW.WORK_ID AS WORK_ID, " + "\n" +
" WFS_T_WORKFLOW.OBJECT_ID AS OBJECT_ID, " + "\n" +
" WFS_T_WORKFLOW.LVL AS LVL, " + "\n" +
" MAX(WFS_T_WORKFLOW.STEP) AS STEP " + "\n" +
" FROM WFS_T_WORKFLOW " + "\n" +
" GROUP BY WFS_T_WORKFLOW.WORK_ID , WFS_T_WORKFLOW.OBJECT_ID , WFS_T_WORKFLOW.LVL " + "\n" +
""
);
//--------------------
//WFS_WF_STATUS_LIST_SUB
executeSQL(
"CREATE VIEW WFS_WF_STATUS_LIST AS " + "\n" +
" SELECT " + "\n" +
" MN.WORK_ID " + "\n" +
" ,MN.OBJECT_ID " + "\n" +
" ,MN.LVL " + "\n" +
" ,MN.STEP " + "\n" +
" ,MN.STATUS " + "\n" +
" ,MN.CREATED_BY " + "\n" +
" ,MN.CREATED_DATE " + "\n" +
" ,MN.UPDATED_BY AS WFS_ID " + "\n" +
" ,TLN_M_USER.USER_NM AS WFS_NAME " + "\n" +
" ,MN.UPDATED_DATE AS WFS_DATE " + "\n" +
" FROM WFS_T_WORKFLOW MN " + "\n" +
" INNER JOIN WFS_WF_STATUS_LIST_SUB MX " + "\n" +
" ON MX.WORK_ID = MN.WORK_ID " + "\n" +
" AND MX.OBJECT_ID = MN.OBJECT_ID " + "\n" +
" AND MX.LVL = MN.LVL " + "\n" +
" AND MX.STEP = MN.STEP " + "\n" +
" AND MN.STATUS IN ('1','2') " + "\n" +
" AND MN.ACTIVE_FLG = '1' " + "\n" +
" LEFT OUTER JOIN TLN_M_USER " + "\n" +
" ON MN.UPDATED_BY = TLN_M_USER.USER_ID " + "\n" +
""
);
};
if ( TALON.getDbConfig().isPostgres() ) {
//SQLファイルで作成
};
}
```
#### サーバJS ライブラリ: XDMF_JS001_0 ([共通]共通)
```javascript
//-------------------------------------------
//［部品］共通
//-------------------------------------------
var _USER_ID = '';
var _FUNC_ID = '';
function tln_com_escape(val) {
return val.replace("'","''");
}
//システム日付を返す
//更新時、データベースの日付型項目へバインドする際に使用（更新日付など）
function tln_com_nowdate() {
var sysDate = new java.util.Date();
return sysDate;
}
//システム日付（文字列 YYYY-MM-DD HH:MI:SS）を返す
//更新時、タイムスタンプ型としてSQLに組み込む際に使用
function tln_com_nowdate_str() {
var sysDate = new java.util.Date();
return (sysDate.getYear()+1900) + "-" + (sysDate.getMonth()+1) + "-" + sysDate.getDate() + " " + sysDate.getHours() + ":" + sysDate.getMinutes() + ":" + sysDate.getSeconds();
}
//文字列型の日付(画面項目)(YYYY/MM/DD)を日付型に変換
function tln_com_todate(val) {
y = parseInt(val.split("/")[0]) - 1900;
m = parseInt(val.split("/")[1]) - 1;
d = parseInt(val.split("/")[2]);
var sysDate = new java.util.Date(y,m,d);
return sysDate;
}
//文字列型の日付(YYYY-MM-DD HH:MI)を日付型に変換
function tln_com_todatetime(val) {
//val = val.replace("-","/")
var regExp = new RegExp( "-", "g" ) ;
val = val.replace( regExp , "/" ) ;
var val1 = val.split(" ")[0];
var val2 = val.split(" ")[1];
var y = parseInt(val1.split("/")[0]) - 1900;
var m = parseInt(val1.split("/")[1]) - 1;
var d = parseInt(val1.split("/")[2]) + 0;
var h = parseInt(val2.split(":")[0]);
var f = parseInt(val2.split(":")[1]);
var sysDate = new java.util.Date(y,m,d,h,f);
return sysDate;
}
//日付型を文字列型に変換（単純変換）
function tln_com_date2string(obj) {
if (obj == null) {
return null;
} else {
return obj.toString();
}
}
//日付型を文字列型に変換（YYYY-MM-DD HH:MI:SS変換）
//function tln_com_date2string2(obj) {
// return (obj.getYear()+1900) + "-" + tln_com_zpad2(obj.getMonth()+1) + "-" + tln_com_zpad2(obj.getDate()) + " " + tln_com_zpad2(obj.getHours()) + ":" + tln_com_zpad2(obj.getMinutes()) + ":" + tln_com_zpad2(obj.getSeconds());
//}
//日付型を文字列型に変換（YYYY-MM-DD HH:MI:SS変換）
function tln_com_date2string2(obj) {
var DTYPE = 'DATETIME';
try {
var tmp = obj.getHours();
} catch(e) {
DTYPE = 'DATE';
}
if ( DTYPE == 'DATETIME' ) {
return (obj.getYear()+1900) + "-" + tln_com_zpad2(obj.getMonth()+1) + "-" + tln_com_zpad2(obj.getDate()) + " " + tln_com_zpad2(obj.getHours()) + ":" + tln_com_zpad2(obj.getMinutes()) + ":" + tln_com_zpad2(obj.getSeconds());
} else {
return (obj.getYear()+1900) + "-" + tln_com_zpad2(obj.getMonth()+1) + "-" + tln_com_zpad2(obj.getDate()) + " " + "00:00:00";
}
}
//機能IDを返す（Ver3.2用）
function tln_com_func_id() {
if (_FUNC_ID == '') {
_FUNC_ID = TALON.getUserInfoMap().get("FUNC_ID");
}
return _FUNC_ID;
}
//ログインユーザーIDを返す
function tln_com_user_id() {
if (_USER_ID == '') {
var lineDataMap = TALON.getUserInfoMap();
_USER_ID = lineDataMap['USER_ID'];
}
return _USER_ID;
}
//ログファイルに出力
function tln_com_log(val) {
var log = TALON.getLogger();
log.writeDebug(val);
}
//指定文字数でカット
function tln_com_lcut(str,len) {
return str.substring( 0 , len );
}
//ゼロ詰め（２けた）
function tln_com_zpad2(str) {
return ( '0' + str ).slice( -2 );
}
//
function tln_timestamp(str) {
var val = str;
var regExp = new RegExp( "-", "g" ) ;
val = val.replace( regExp , "/" ) ;
var val1 = val.split(" ")[0];
var val2 = val.split(" ")[1];
var val2h = val2.split(":")[0];
var val2m = val2.split(":")[1];
var val2s = val2.split(":")[2];
return val1 + " " + val2h + ":" + val2m + ":" + val2s;
}
//-------------------------------------------
//［部品］消費税率
//-------------------------------------------
function getTAX_RATE(_KIJUN) {
var itemSelectList = TALON.select( "SELECT VLTAXRATE FROM ZT060 WHERE TLN_DATE_TO_CHAR('YMD', DTSTART) <= '" + _KIJUN + "' ORDER BY DTSTART DESC " );
var lineDataMap = itemSelectList[0];
var val = lineDataMap['VLTAXRATE'];
//var val = 0.08;
return val;
}
//-------------------------------------------
//［部品］会計年度・月序 チェック
//-------------------------------------------
function checkNENDO(_NENDO,GMSEQ) {
var itemSelectList = TALON.select( "SELECT TXVALUE FROM ZT010 WHERE IDVARIANT = 'ALLOWED_FISCAL_MONTH' " );
var lineDataMap = itemSelectList[0];
var _ALLOWED_FISCAL_MONTH = lineDataMap['TXVALUE'];
if ( ( ( _NENDO * 100 ) + GMSEQ ) < parseInt(_ALLOWED_FISCAL_MONTH) ) {
TALON.addErrorMsg( "すでに会計締め処理済み取引日のため処理できません" );
TALON.setIsSuccess(false);
}
return true;
}
//-------------------------------------------
//［部品］会計年度
//パラメータ基準日(YYYY/MM/DD)
//-------------------------------------------
function getNENDO(BASE_DATE) {
var regExp = new RegExp( "-", "g" ) ;
BASE_DATE = tln_com_date2string2(BASE_DATE).replace( regExp , "/" ) ;
var BASE_DATE1 = BASE_DATE.split(" ")[0];
var BASE_DATE2 = BASE_DATE.split(" ")[1];
BASE_DATE = BASE_DATE1
var itemSelectList = TALON.select( "SELECT TXVALUE FROM ZT010 WHERE IDVARIANT = 'FIRST_MONTH' " );
var lineDataMap = itemSelectList[0];
var _FIRST_MONTH = lineDataMap['TXVALUE'];
var itemSelectList = TALON.select( "SELECT TXVALUE FROM ZT010 WHERE IDVARIANT = 'LAST_DAY' " );
var lineDataMap = itemSelectList[0];
var _LAST_DAY = lineDataMap['TXVALUE'];
var _END_MONTH = 0;
var _END_DAY = 0;
//END日を取得
if (_FIRST_MONTH == 1) {
_END_MONTH = 12;
} else {
_END_MONTH = _FIRST_MONTH - 1;
}
if (_LAST_DAY == 31) {
//END_MONTHの最終日(_FIRST_MONTH初日の前日)
var _TEMP = "1999/" + tln_com_zpad2(_FIRST_MONTH) + "/01" + " " + "00:00:00";
var wdate = tln_com_todatetime(_TEMP);
wdate.setMinutes(wdate.getMinutes() - 1);
var tdate = tln_com_date2string2(wdate);
_TEMP = (tdate.toString().split(" ")[0]).substr( 8 , 2 );
_END_DAY = _TEMP;
} else {
if ( ( _END_MONTH == 2 ) && ( _LAST_DAY >= 28 ) ) {
_END_DAY = 28;
} else {
_END_DAY = _LAST_DAY;
}
}
_END_MONTH = tln_com_zpad2(_END_MONTH);
_END_DAY = tln_com_zpad2(_END_DAY);
//TALON.addMsg( _END_MONTH + "/" + _END_DAY );
var _BASE_DATE_NEN = BASE_DATE.split("/")[0];
var _BASE_DATE_BAS = BASE_DATE.split("/")[1] + BASE_DATE.split("/")[2];
if ( (_BASE_DATE_BAS >= '0101' ) && (_BASE_DATE_BAS <= ( _END_MONTH + _END_DAY ) ) ) {
_BASE_DATE_NEN = _BASE_DATE_NEN - 1;
}
//TALON.addMsg( _BASE_DATE_NEN );
return _BASE_DATE_NEN;
}
//-------------------------------------------
//［部品］月例
//パラメータ基準日(YYYY/MM/DD)
//-------------------------------------------
function getGMSEQ(BASE_DATE) {
var regExp = new RegExp( "-", "g" ) ;
BASE_DATE = tln_com_date2string2(BASE_DATE).replace( regExp , "/" ) ;
var BASE_DATE1 = BASE_DATE.split(" ")[0];
var BASE_DATE2 = BASE_DATE.split(" ")[1];
BASE_DATE = BASE_DATE1
var itemSelectList = TALON.select( "SELECT TXVALUE FROM ZT010 WHERE IDVARIANT = 'FIRST_MONTH' " );
var lineDataMap = itemSelectList[0];
var _FIRST_MONTH = lineDataMap['TXVALUE'];
var itemSelectList = TALON.select( "SELECT TXVALUE FROM ZT010 WHERE IDVARIANT = 'LAST_DAY' " );
var lineDataMap = itemSelectList[0];
var _LAST_DAY = lineDataMap['TXVALUE'];
var _BASE_DATE_NEN = BASE_DATE.split("/")[0];
var _BASE_DATE_MON = BASE_DATE.split("/")[1];
var _BASE_DATE_DAY = BASE_DATE.split("/")[2];
//締め日が31の場合はそのまま月で計算
if (parseInt(_LAST_DAY) == 31) {
_BASE_DATE_MON = parseInt(_BASE_DATE_MON);
}
//締め日が31以外で日付が締め日より大きい場合、翌月数字で計算
if ( (parseInt(_LAST_DAY) != 31) && (parseInt(_LAST_DAY) < parseInt(_BASE_DATE_DAY)) ) {
if (_BASE_DATE_MON == 12) {
_BASE_DATE_MON = 1;
} else {
_BASE_DATE_MON = parseInt(_BASE_DATE_MON) + 1;
}
}
//締め日が31以外で日付が締め日より小さい場合、そのままの月数字で計算
if ( (parseInt(_LAST_DAY) != 31) && (parseInt(_LAST_DAY) >= parseInt(_BASE_DATE_DAY)) ) {
_BASE_DATE_MON = parseInt(_BASE_DATE_MON);
}
var REC = 0;
if (parseInt(_FIRST_MONTH) > parseInt(_BASE_DATE_MON)) {
REC = (parseInt(_BASE_DATE_MON) + 12) - (parseInt(_FIRST_MONTH) - 1);
} else {
REC = (parseInt(_BASE_DATE_MON)) - (parseInt(_FIRST_MONTH) - 1);
}
//TALON.addMsg( REC );
return REC;
}
//-------------------------------------------
//［部品］休日チェック(1:休日 / 0:平日)
//-------------------------------------------
function getHOLIDAY_FLG(_KBCALENDAR, _DTOFF) {
var sql =
"SELECT " +
"COUNT(*) AS CNT " +
"FROM ZT070 " +
"WHERE ZT070.KBCALENDAR = '" + _KBCALENDAR + "' " +
" AND ZT070.DTOFF = TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(_DTOFF) + "') "
;
var itemSelectList = TALON.select(sql);
var lineDataMap = itemSelectList[0];
var _CNT = lineDataMap['CNT'];
return _CNT;
}
//-------------------------------------------
//［部品］品目[BT010]
//-------------------------------------------
function selectBT010(_IDHINMOKU) {
var sql =
"SELECT " +
" IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBHINSYU " +
",PRGENKA " +
",PRHANBAI " +
",KBUNIT " +
",KBUNITPUR " +
",VLKANZAN " +
",PRKOUNYU " +
",IDSIIRESAKI " +
",FGZAIKO " +
",FGKOUNYU " +
",FGHANBAI " +
",FGSEIZO " +
",TXTEKIYO " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM BT010 " +
"WHERE IDHINMOKU = '" + _IDHINMOKU + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［部品］仕入先[DT010]
//-------------------------------------------
function selectDT010(_IDSIIRESAKI) {
var sql =
"SELECT " +
" IDSIIRESAKI " +
",KBSIHARAI " +
",TXHURIKOMI " +
",TXTEKIYO " +
",AMKISYUKAIKAKE " +
",AMSIIRE " +
",AMSIHARAI " +
",AMGENKAIKAKE " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM DT010 " +
"WHERE IDSIIRESAKI = '" + _IDSIIRESAKI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateDT010(itemDataList) {
//項目
var itemColNameTbl = [
'IDSIIRESAKI'
,'KBSIHARAI'
,'TXHURIKOMI'
,'TXTEKIYO'
,'AMKISYUKAIKAKE'
,'AMSIIRE'
,'AMSIHARAI'
,'AMGENKAIKAKE'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
var itemSelectList = selectDT010(itemDataList['IDSIIRESAKI']);
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'IDSIIRESAKI' ];
whereList.push(whereTbl1);
TALON.updateByMap( 'DT010', itemDataList , itemColNameTbl , whereList );
}
//-------------------------------------------
//［部品］得意先[ET010]
//-------------------------------------------
function selectET010(_IDTOKUISAKI) {
var sql =
"SELECT " +
" IDTOKUISAKI " +
",TXTANTOUBUSYO " +
",TXTANTOUSYA " +
",TXTANTOUSYASYOKUI " +
",TXTANTOUSYAEMAIL " +
",TXTANTOUSYADENWA " +
",KBSEIKYUHOUSHIKI " +
",TXSIMEBI " +
",KBNYUKINHOUHOU " +
",VLNYUKINSAITO " +
",AMYOSHIN " +
",NRTANTOUJYUGYOIN " +
",TXTEKIYO " +
",AMKISYUURIKAKE " +
",AMURIAGE " +
",AMJYURYO " +
",AMGENURIKAKE " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM ET010 " +
"WHERE IDTOKUISAKI = '" + _IDTOKUISAKI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateET010(itemDataList) {
//項目
var itemColNameTbl = [
'IDTOKUISAKI'
,'TXTANTOUBUSYO'
,'TXTANTOUSYA'
,'TXTANTOUSYASYOKUI'
,'TXTANTOUSYAEMAIL'
,'TXTANTOUSYADENWA'
,'KBSEIKYUHOUSHIKI'
,'TXSIMEBI'
,'KBNYUKINHOUHOU'
,'VLNYUKINSAITO'
,'AMYOSHIN'
,'NRTANTOUJYUGYOIN'
,'TXTEKIYO'
,'AMKISYUURIKAKE'
,'AMURIAGE'
,'AMJYURYO'
,'AMGENURIKAKE'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
var itemSelectList = selectET010(itemDataList['IDTOKUISAKI']);
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'IDTOKUISAKI' ];
whereList.push(whereTbl1);
TALON.updateByMap( 'ET010', itemDataList , itemColNameTbl , whereList );
}
//-------------------------------------------
//［部品］倉庫在庫[FT010]
//-------------------------------------------
function selectFT010(_IDHINMOKU, _CDSOUKO) {
var sql =
"SELECT " +
" IDHINMOKU " +
",CDSOUKO " +
",QTKISYU " +
",QTNYUKO " +
",QTSYUKKO " +
",AMKISYU " +
",AMNYUKO " +
",AMSYUKKO " +
",QTGENZAIKO " +
",AMGENZAIKO " +
",PRGENZAIKO " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT010 " +
"WHERE IDHINMOKU = '" + _IDHINMOKU + "'" +
" AND CDSOUKO = '" + _CDSOUKO + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function selectFT010_CDSOUKO(_CDSOUKO) {
var sql =
"SELECT " +
" IDHINMOKU " +
",CDSOUKO " +
",QTKISYU " +
",QTNYUKO " +
",QTSYUKKO " +
",AMKISYU " +
",AMNYUKO " +
",AMSYUKKO " +
",QTGENZAIKO " +
",AMGENZAIKO " +
",PRGENZAIKO " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT010 " +
"WHERE CDSOUKO = '" + _CDSOUKO + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateFT010(itemDataList) {
//項目
var itemColNameTbl = [
'IDHINMOKU'
,'CDSOUKO'
,'QTKISYU'
,'QTNYUKO'
,'QTSYUKKO'
,'AMKISYU'
,'AMNYUKO'
,'AMSYUKKO'
,'QTGENZAIKO'
,'AMGENZAIKO'
,'PRGENZAIKO'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
//共通
//--------
//現在庫数
itemDataList['QTGENZAIKO'] = itemDataList['QTKISYU'] + itemDataList['QTNYUKO'] - itemDataList['QTSYUKKO'];
//現在庫額
itemDataList['AMGENZAIKO'] = itemDataList['AMKISYU'] + itemDataList['AMNYUKO'] - itemDataList['AMSYUKKO'];
//現在庫単価
if (itemDataList['QTGENZAIKO'] == 0) {
itemDataList['PRGENZAIKO'] = 0;
} else {
itemDataList['PRGENZAIKO'] = itemDataList['AMGENZAIKO'] / itemDataList['QTGENZAIKO'];
}
//データが存在する場合はupdate、存在しない場合はinsert
var itemSelectList = selectFT010(itemDataList['IDHINMOKU'], itemDataList['CDSOUKO']);
if (itemSelectList.length == 0) {
//INSERT
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
TALON.insertByMap( 'FT010', itemDataList , itemColNameTbl );
} else {
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'IDHINMOKU' ];
var whereTbl2 = [ null, '=' , 'CDSOUKO' ];
whereList.push(whereTbl1);
whereList.push(whereTbl2);
TALON.updateByMap( 'FT010', itemDataList , itemColNameTbl , whereList );
}
}
//-------------------------------------------
//［部品］在庫増減履歴[FT100]
//-------------------------------------------
function selectFT100(_NRZAITORI) {
var sql =
"SELECT " +
" NRZAITORI " +
",DTTORIHIKI " +
",KBUKEBARAI " +
",KBZAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",CDSOUKO " +
",TXAITESAKI " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMSAGAKU " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",QTZOUGEN " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT100 " +
"WHERE NRZAITORI = '" + _NRZAITORI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateFT100(itemDataList) {
//項目
var itemColNameTbl = [
'NRZAITORI'
,'DTTORIHIKI'
,'KBUKEBARAI'
,'KBZAIHURI'
,'KBAKADEN'
,'FGVALID'
,'IDHINMOKU'
,'TXHINBAN'
,'TXHINMEI'
,'KBUNIT'
,'CDSOUKO'
,'TXAITESAKI'
,'PRTORIHIKI'
,'QTTORIHIKI'
,'AMTORIHIKI'
,'AMSAGAKU'
,'NRSOURCE'
,'DTCREATE'
,'TXREFNO'
,'DTNEND'
,'DTMSEQ'
,'QTZOUGEN'
,'AMZOUGEN'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
//関連情報補填(採番)
//在庫取引№
var numList = TALON.getNumberingData('XDMF_FF_ZAITORI', 1)
itemDataList['NRZAITORI'] = numList[0];
//関連情報補填(品目マスタ)
var itemSelectList = selectBT010(itemDataList['IDHINMOKU']);
var lineDataMap = itemSelectList[0];
//品番
itemDataList['TXHINBAN'] = lineDataMap['TXHINBAN'];
//品名
itemDataList['TXHINMEI'] = lineDataMap['TXHINMEI'];
//単位区分
itemDataList['KBUNIT'] = lineDataMap['KBUNIT'];
//取引差額
if ( (itemDataList['AMSAGAKU'] == "") || (itemDataList['AMSAGAKU'] == null) ) {
itemDataList['AMSAGAKU'] = 0;
}
//共通
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
var _NENDO = getNENDO(itemDataList['DTTORIHIKI']);
var _GMSEQ = getGMSEQ(itemDataList['DTTORIHIKI']);
checkNENDO(_NENDO, _GMSEQ);
//年度
itemDataList['DTNEND'] = _NENDO;
//月序
itemDataList['DTMSEQ'] = _GMSEQ;
TALON.insertByMap( 'FT100', itemDataList , itemColNameTbl );
}
function insertAkaFT100(_NRZAITORI) {
//関連情報補填(採番)
//在庫取引№
var numList = TALON.getNumberingData('XDMF_FF_ZAITORI', 1)
_NEXT_NRZAITORI = numList[0];
//
TALON.insert(
" INSERT INTO FT100 ( " +
" NRZAITORI " +
" ,DTTORIHIKI " +
" ,KBUKEBARAI " +
" ,KBZAIHURI " +
" ,KBAKADEN " +
" ,FGVALID " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,CDSOUKO " +
" ,TXAITESAKI " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTORIHIKI " +
" ,AMSAGAKU " +
" ,NRSOURCE " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,QTZOUGEN " +
" ,AMZOUGEN " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" ) " +
" SELECT " +
" '" + _NEXT_NRZAITORI + "' " +
" ,DTTORIHIKI " +
" ,KBUKEBARAI " +
" ,KBZAIHURI " +
" ,'2' " +
" ,'F' " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,CDSOUKO " +
" ,TXAITESAKI " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTORIHIKI " +
" ,AMSAGAKU " +
" ,NRSOURCE " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,(QTZOUGEN * -1) " +
" ,(AMZOUGEN * -1) " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,0 " +
" FROM FT100 " +
" WHERE NRZAITORI = '" + _NRZAITORI + "'"
);
}
//-------------------------------------------
//［部品］買掛増減履歴[DT100]
//-------------------------------------------
function selectDT100(_NRKAIKAKE) {
var sql =
"SELECT " +
" NRKAIKAKE " +
",IDSIIRESAKI " +
",DTTORIHIKI " +
",KBKAITORI " +
",KBKAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMTAX " +
",NRSIHARAI " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM DT100 " +
"WHERE NRKAIKAKE = '" + _NRKAIKAKE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateDT100(itemDataList) {
//項目
var itemColNameTbl = [
'NRKAIKAKE'
,'IDSIIRESAKI'
,'DTTORIHIKI'
,'KBKAITORI'
,'KBKAIHURI'
,'KBAKADEN'
,'FGVALID'
,'IDHINMOKU'
,'TXHINBAN'
,'TXHINMEI'
,'KBUNIT'
,'PRTORIHIKI'
,'QTTORIHIKI'
,'AMTORIHIKI'
,'AMTAX'
,'NRSIHARAI'
,'NRSOURCE'
,'DTCREATE'
,'TXREFNO'
,'DTNEND'
,'DTMSEQ'
,'AMZOUGEN'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
//関連情報補填(採番)
//買掛取引№
var numList = TALON.getNumberingData('XDMF_DF_KAIKAKE', 1)
itemDataList['NRKAIKAKE'] = numList[0];
//関連情報補填(品目マスタ) ※品目IDが入っているときのみ
if (itemDataList['IDHINMOKU'] != '') {
var itemSelectList = selectBT010(itemDataList['IDHINMOKU']);
var lineDataMap = itemSelectList[0];
//品番
itemDataList['TXHINBAN'] = lineDataMap['TXHINBAN'];
//品名
itemDataList['TXHINMEI'] = lineDataMap['TXHINMEI'];
//単位区分
itemDataList['KBUNIT'] = lineDataMap['KBUNITPUR'];
}
//共通
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
var _NENDO = getNENDO(itemDataList['DTTORIHIKI']);
var _GMSEQ = getGMSEQ(itemDataList['DTTORIHIKI']);
checkNENDO(_NENDO, _GMSEQ);
//年度
itemDataList['DTNEND'] = _NENDO;
//月序
itemDataList['DTMSEQ'] = _GMSEQ;
TALON.insertByMap( 'DT100', itemDataList , itemColNameTbl );
}
function insertAkaDT100(_NRKAIKAKE) {
//関連情報補填(採番)
//買掛取引№
var numList = TALON.getNumberingData('XDMF_DF_KAIKAKE', 1)
_NEXT_NRKAIKAKE = numList[0];
//
TALON.insert(
" INSERT INTO DT100 ( " +
" NRKAIKAKE " +
" ,IDSIIRESAKI " +
" ,DTTORIHIKI " +
" ,KBKAITORI " +
" ,KBKAIHURI " +
" ,KBAKADEN " +
" ,FGVALID " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTORIHIKI " +
" ,AMTAX " +
" ,NRSIHARAI " +
" ,NRSOURCE " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,AMZOUGEN " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" ) " +
" SELECT " +
" '" + _NEXT_NRKAIKAKE + "' " +
" ,IDSIIRESAKI " +
" ,DTTORIHIKI " +
" ,KBKAITORI " +
" ,KBKAIHURI " +
" ,'2' " +
" ,'F' " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTORIHIKI " +
" ,AMTAX " +
" ,NRSIHARAI " +
" ,NRSOURCE " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,(AMZOUGEN * -1) " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,0 " +
" FROM DT100 " +
" WHERE NRKAIKAKE = '" + _NRKAIKAKE + "'"
);
}
//-------------------------------------------
//［部品］売掛増減履歴[ET100]
//-------------------------------------------
function selectET100(_NRURIKAKE) {
var sql =
"SELECT " +
" NRURIKAKE " +
",IDTOKUISAKI " +
",DTTORIHIKI " +
",KBURITORI " +
",KBURIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTAX " +
",AMGENKA " +
",NRSOURCE " +
",NRSEIKYU " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",AMARARI " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
",AMTORIHIKI " +
"FROM ET100 " +
"WHERE NRURIKAKE = '" + _NRURIKAKE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateET100(itemDataList) {
//項目
var itemColNameTbl = [
'NRURIKAKE'
,'IDTOKUISAKI'
,'DTTORIHIKI'
,'KBURITORI'
,'KBURIHURI'
,'KBAKADEN'
,'FGVALID'
,'IDHINMOKU'
,'TXHINBAN'
,'TXHINMEI'
,'KBUNIT'
,'PRTORIHIKI'
,'QTTORIHIKI'
,'AMTAX'
,'AMGENKA'
,'NRSOURCE'
,'NRSEIKYU'
,'DTCREATE'
,'TXREFNO'
,'DTNEND'
,'DTMSEQ'
,'AMARARI'
,'AMZOUGEN'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
,'AMTORIHIKI'
];
//関連情報補填(採番)
//買掛取引№
var numList = TALON.getNumberingData('XDMF_EF_URIKAKE', 1)
itemDataList['NRURIKAKE'] = numList[0];
//関連情報補填(品目マスタ) ※品目IDが入っているときのみ
if (itemDataList['IDHINMOKU'] != '') {
var itemSelectList = selectBT010(itemDataList['IDHINMOKU']);
var lineDataMap = itemSelectList[0];
//品番
itemDataList['TXHINBAN'] = lineDataMap['TXHINBAN'];
//品名
itemDataList['TXHINMEI'] = lineDataMap['TXHINMEI'];
//単位区分
itemDataList['KBUNIT'] = lineDataMap['KBUNIT'];
}
//共通
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
var _NENDO = getNENDO(itemDataList['DTTORIHIKI']);
var _GMSEQ = getGMSEQ(itemDataList['DTTORIHIKI']);
checkNENDO(_NENDO, _GMSEQ);
//年度
itemDataList['DTNEND'] = _NENDO;
//月序
itemDataList['DTMSEQ'] = _GMSEQ;
TALON.insertByMap( 'ET100', itemDataList , itemColNameTbl );
}
function insertAkaET100(_NRURIKAKE) {
//関連情報補填(採番)
//買掛取引№
var numList = TALON.getNumberingData('XDMF_EF_URIKAKE', 1)
_NEXT_NRURIKAKE = numList[0];
//
TALON.insert(
" INSERT INTO ET100 ( " +
" NRURIKAKE " +
" ,IDTOKUISAKI " +
" ,DTTORIHIKI " +
" ,KBURITORI " +
" ,KBURIHURI " +
" ,KBAKADEN " +
" ,FGVALID " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTAX " +
" ,AMGENKA " +
" ,NRSOURCE " +
" ,NRSEIKYU " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,AMARARI " +
" ,AMZOUGEN " +
" ,AMTORIHIKI " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" ) " +
" SELECT " +
" '" + _NEXT_NRURIKAKE + "' " +
" ,IDTOKUISAKI " +
" ,DTTORIHIKI " +
" ,KBURITORI " +
" ,KBURIHURI " +
" ,'2' " +
" ,'F' " +
" ,IDHINMOKU " +
" ,TXHINBAN " +
" ,TXHINMEI " +
" ,KBUNIT " +
" ,PRTORIHIKI " +
" ,QTTORIHIKI " +
" ,AMTAX " +
" ,AMGENKA " +
" ,NRSOURCE " +
" ,NRSEIKYU " +
" ,DTCREATE " +
" ,TXREFNO " +
" ,DTNEND " +
" ,DTMSEQ " +
" ,AMARARI " +
" ,(AMZOUGEN * -1) " +
" ,AMTORIHIKI " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,TLN_CHAR_TO_DATE('YMDHMS','" + tln_timestamp(tln_com_nowdate_str()) + "') " +
" ,'" + tln_com_user_id() + "' " +
" ,'" + tln_com_func_id() + "' " +
" ,0 " +
" FROM ET100 " +
" WHERE NRURIKAKE = '" + _NRURIKAKE + "'"
);
}
//-------------------------------------------
//［部品］製造指示[JT010]
//-------------------------------------------
function selectJT010(_NRSEIZO) {
var sql =
" SELECT " +
" NRSEIZO " +
" ,IDTOKUISAKI " +
" ,SQSYUKKASAKI " +
" ,TXTYUMONBANGO " +
" ,IDHINMOKU " +
" ,DTNOUKI " +
" ,QTJYUTYU " +
" ,QTSYUKKA " +
" ,QTSEIZO " +
" ,QTKANSEI " +
" ,QTHURYO " +
" ,QTHAIKI " +
" ,AMGENKA " +
" ,PRMITSUMORI " +
" ,PRJYUTYU " +
" ,TXTEKIYO " +
" ,CDSOUKOKAN " +
" ,CDSOUKOZAI " +
" ,DTCREATE " +
" ,DTHAKKO " +
" ,DTSYUKKO " +
" ,DTKANSEI " +
" ,DTSYUKKA " +
" ,DTCANCEL " +
" ,NRSOURCE " +
" ,STSEIZO " +
" ,PRYOTEIGEN " +
" ,AMHANBAI " +
" ,AMARARI " +
" ,PRGENKA " +
" ,TXSEIZOYOTEI " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM JT010 " +
" WHERE JT010.NRSEIZO = '" + _NRSEIZO + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateJT010(itemDataList) {
//項目
var itemColNameTbl = [
'NRSEIZO'
,'IDTOKUISAKI'
,'SQSYUKKASAKI'
,'TXTYUMONBANGO'
,'IDHINMOKU'
,'DTNOUKI'
,'QTJYUTYU'
,'QTSYUKKA'
,'QTSEIZO'
,'QTKANSEI'
,'QTHURYO'
,'QTHAIKI'
,'AMGENKA'
,'PRMITSUMORI'
,'PRJYUTYU'
,'TXTEKIYO'
,'CDSOUKOKAN'
,'CDSOUKOZAI'
,'DTCREATE'
,'DTHAKKO'
,'DTSYUKKO'
,'DTKANSEI'
,'DTSYUKKA'
,'DTCANCEL'
,'NRSOURCE'
,'STSEIZO'
,'PRYOTEIGEN'
,'AMHANBAI'
,'AMARARI'
,'PRGENKA'
,'TXSEIZOYOTEI'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
var itemSelectList = selectJT010(itemDataList['NRSEIZO']);
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'NRSEIZO' ];
whereList.push(whereTbl1);
TALON.updateByMap( 'JT010', itemDataList , itemColNameTbl , whereList );
}
//-------------------------------------------
//［部品］製造指示工程明細[JT030]
//-------------------------------------------
function selectJT030(_NRSEIZO) {
var sql =
" SELECT " +
" JT030.NRSEIZO " +
" ,JT030.SQKOUTEI " +
" ,JT030.CDKOUTEI " +
" ,JT030.SQCENTER " +
" ,JT030.LTSEIZO " +
" ,JT030.DTFROM " +
" ,JT030.TMFROM " +
" ,JT030.DTTHRU " +
" ,JT030.TMTHRU " +
" ,JT030.SQLIST " +
" ,JT030.TXSAGYOYOTEI " +
" ,JT030.AMKAKOU " +
" ,JT030.CREATED_DATE " +
" ,JT030.CREATED_BY " +
" ,JT030.CREATED_PRG_NM " +
" ,JT030.UPDATED_DATE " +
" ,JT030.UPDATED_BY " +
" ,JT030.UPDATED_PRG_NM " +
" ,JT030.MODIFY_COUNT " +
" ,BT060.RTKAKOU " +
" FROM JT030 " +
" INNER JOIN BT060 " +
" ON BT060.CDKOUTEI = JT030.CDKOUTEI " +
" AND BT060.SQCENTER = JT030.SQCENTER " +
" WHERE JT030.NRSEIZO = '" + _NRSEIZO + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateJT030(itemDataList) {
//項目
var itemColNameTbl = [
'NRSEIZO'
,'SQKOUTEI'
,'CDKOUTEI'
,'SQCENTER'
,'LTSEIZO'
,'DTFROM'
,'TMFROM'
,'DTTHRU'
,'TMTHRU'
,'SQLIST'
,'TXSAGYOYOTEI'
,'AMKAKOU'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
var itemSelectList = selectJT030(itemDataList['NRSEIZO']);
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'NRSEIZO' ];
var whereTbl2 = [ null, '=' , 'SQKOUTEI' ];
whereList.push(whereTbl1);
whereList.push(whereTbl2);
TALON.updateByMap( 'JT030', itemDataList , itemColNameTbl , whereList );
}
//-------------------------------------------
//［部品］製造指示材料明細[JT040]
//-------------------------------------------
function selectJT040(_NRSEIZO) {
var sql =
" SELECT " +
" JT040.NRSEIZO " +
" ,JT040.SQZAIRYO " +
" ,JT040.IDHINMOKU " +
" ,JT040.QTTOUNYU " +
" ,JT040.SQKOUTEI " +
" ,JT040.PRYOTEI " +
" ,JT040.PRSYUKKO " +
" ,JT040.SQLIST " +
" ,JT040.CDSOUKO " +
" ,JT040.CREATED_DATE " +
" ,JT040.CREATED_BY " +
" ,JT040.CREATED_PRG_NM " +
" ,JT040.UPDATED_DATE " +
" ,JT040.UPDATED_BY " +
" ,JT040.UPDATED_PRG_NM " +
" ,JT040.MODIFY_COUNT " +
" FROM JT040 " +
" WHERE JT040.NRSEIZO = '" + _NRSEIZO + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［部品］売掛振替[LT010]
//-------------------------------------------
function selectLT010(_NRURIHURI) {
var sql =
" SELECT " +
" NRURIHURI " +
" ,KBURIHURI " +
" ,DTHURIKAE " +
" ,IDTOKUISAKI " +
" ,AMHURIKAE " +
" ,TXTEKIYO " +
" ,NRSEIKYU " +
" ,NRSOURCE " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" ,KBZOUGEN " +
" FROM LT010 " +
" WHERE LT010.NRURIHURI = '" + _NRURIHURI + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［部品］特殊売上[LT020]
//-------------------------------------------
function selectLT020(_NRTOKUURI) {
var sql =
" SELECT " +
" NRTOKUURI " +
",KBTOKUURI " +
",IDTOKUISAKI " +
",SQSYUKKASAKI " +
",DTTORIHIKI " +
",IDHINMOKU " +
",CDSOUKO " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",PRZAIKO " +
",QTZAIKO " +
",TXTEKIYO " +
",NRSOURCE " +
",AMTORIHIKI " +
",AMTAX " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
" FROM LT020 " +
" WHERE LT020.NRTOKUURI = '" + _NRTOKUURI + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［部品］在庫振替[MT010]
//-------------------------------------------
function selectMT010(_NRZAIHURI) {
var sql =
" SELECT " +
" NRZAIHURI " +
" ,CDSOUKO " +
" ,DTHURIKAE " +
" ,KBZOUGEN " +
" ,KBZAIHURI " +
" ,IDHINMOKU " +
" ,PRHURIKAE " +
" ,QTHURIKAE " +
" ,TXTEKIYO " +
" ,NRSOURCE " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT010 " +
" WHERE NRZAIHURI = '" + _NRZAIHURI + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［部品］棚卸指示[MT020]
//-------------------------------------------
function selectMT020(_NRTANAOROSI) {
var sql =
" SELECT " +
" NRTANAOROSI " +
" ,CDSOUKO " +
" ,DTKIJYUN " +
" ,DTKAKUTEI " +
" ,TXTEKIYO " +
" ,NRSOURCE " +
" ,DTKIJYUNWORK " +
" ,STTANAOROSI " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT020 " +
" WHERE NRTANAOROSI = '" + _NRTANAOROSI + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［部品］棚卸指示明細[MT021]
//-------------------------------------------
function selectMT021(_NRTANAOROSI,_IDHINMOKU) {
var sql =
" SELECT " +
" NRTANAOROSI " +
" ,IDHINMOKU " +
" ,PRKIJYUN " +
" ,QTKIJYUN " +
" ,PRJITSUTANA " +
" ,QTJITSUTANA " +
" ,QTDIFF " +
" ,AMDIFF " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT021 " +
" WHERE NRTANAOROSI = '" + _NRTANAOROSI + "' " +
" AND IDHINMOKU = '" + _IDHINMOKU + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateMT021(itemDataList) {
//項目
var itemColNameTbl = [
'NRTANAOROSI'
,'IDHINMOKU'
,'PRKIJYUN'
,'QTKIJYUN'
,'PRJITSUTANA'
,'QTJITSUTANA'
,'QTDIFF'
,'AMDIFF'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
//共通
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
TALON.insertByMap( 'MT021', itemDataList , itemColNameTbl );
}
//-------------------------------------------
//［部品］棚卸指示明細[MT021]
//-------------------------------------------
function selectMT021_NRTANAOROSI(_NRTANAOROSI) {
var sql =
" SELECT " +
" NRTANAOROSI " +
" ,IDHINMOKU " +
" ,PRKIJYUN " +
" ,QTKIJYUN " +
" ,PRJITSUTANA " +
" ,QTJITSUTANA " +
" ,QTDIFF " +
" ,AMDIFF " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT021 " +
" WHERE NRTANAOROSI = '" + _NRTANAOROSI + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［部品］在庫移動指示[MT030]
//-------------------------------------------
function selectMT030(_NRZAIIDOU) {
var sql =
" SELECT " +
" NRZAIIDOU " +
" ,CDSOUKOFROM " +
" ,CDSOUKOTHRU " +
" ,DTSHIJI " +
" ,DTKANRYOU " +
" ,TXTEKIYO " +
" ,NRSOURCE " +
" ,STZAIIDOU " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT030 " +
" WHERE NRZAIIDOU = '" + _NRZAIIDOU + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［部品］在庫移動指示明細[MT031]
//-------------------------------------------
function selectMT031_NRZAIIDOU(_NRZAIIDOU) {
var sql =
" SELECT " +
" NRZAIIDOU " +
" ,IDHINMOKU " +
" ,PRZAIIDOU " +
" ,QTZAIIDOU " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
" FROM MT031 " +
" WHERE NRZAIIDOU = '" + _NRZAIIDOU + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［部品］工程日付計算リバース
//-------------------------------------------
function calcDTTM_R(sBasDy,sBasTm,sLet,_kakof,_kakot,_calender) {
var rec = '';
var flg1 = true;
var flg2 = true;
sBasDy = sBasDy.toString().split(" ")[0];
tln_com_log("☆R[param ]" + sBasDy + " / " + sBasTm + " / " + sLet + " / " + _kakof + " / " + _kakot + " / " + _calender);
//スタート時点の基準日が既に稼働対象外の場合は直近の稼働に変更する
if (_kakot < sBasTm ) {
tln_com_log("☆R[param ] (1)");
sBasTm = _kakot;
}
if (_kakof > sBasTm ) {
tln_com_log("☆R[param ] (2)");
sBasTm = _kakot;
//前日完了
var wdate = tln_com_todatetime(sBasDy + " " + "00:00:00");
wdate.setMinutes(wdate.getMinutes() - 1);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
flg2 = true;
while (flg2){
if (getHOLIDAY_FLG(_calender,sBasDy + ' 00:00:00') == '0') {
flg2 = false;
} else {
wdate = tln_com_todatetime(sBasDy + ' 00:00:00');
wdate.setMinutes(wdate.getMinutes() - 1);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
}
}
}
rec = sBasDy + " " + sBasTm;
while (flg1){
sBasDy = sBasDy.toString().split(" ")[0];
var wdate = tln_com_todatetime(sBasDy + " " + sBasTm);
var wdatl = tln_com_todatetime(sBasDy + " " + sBasTm);
wdatl.setMinutes(wdate.getMinutes() - sLet);
var wdats = tln_com_todatetime(sBasDy + " " + _kakof);
var tdate = tln_com_date2string2(wdatl);
var tDat = tdate.toString().split(" ")[0];
var tTim = tdate.toString().split(" ")[1];
tTim = tln_com_lcut(tTim,5);
tln_com_log("☆R[wdate ]" + wdate);
tln_com_log("☆R[sLet ]" + sLet);
tln_com_log("☆R[wdatl ]" + wdatl);
tln_com_log("☆R[wdats ]" + wdats);
tln_com_log("☆R[tDat ]" + tDat);
tln_com_log("☆R[sBasDy ]" + sBasDy);
tln_com_log("☆R[tTim ]" + tTim);
tln_com_log("☆R[kakof ]" + _kakof);
if (tDat == sBasDy && tTim >= _kakof) {
sBasTm = tTim;
flg1 = false;
} else {
//日付が異なっている場合、もしくは同日でも稼働開始時間より前の開始時刻の場合
//基準から開始日までの時間を計算し残りリードタイムを計算し
//基準日を前日、基準時間を稼働終了時刻にして再度実施
//var sWok = wdats - wdate;
var sWok = getDiff(tln_com_date2string2(wdats),tln_com_date2string2(wdate));
if (sWok < 0) {
sWok = sWok * -1;
}
sLet = sLet - sWok;
tln_com_log("☆R[sWok ]" + sWok);
tln_com_log("☆R[sLet ]" + sLet);
var wdate = tln_com_todatetime(sBasDy + " " + "00:00:00");
wdate.setMinutes(wdate.getMinutes() - 1);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
flg2 = true;
while (flg2){
if (getHOLIDAY_FLG(_calender,sBasDy + ' 00:00:00') == '0') {
flg2 = false;
} else {
wdate = tln_com_todatetime(sBasDy + ' 00:00:00');
wdate.setMinutes(wdate.getMinutes() - 1);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
}
}
sBasTm = _kakot;
}
}
tln_com_log("☆R[return ]" + (sBasDy + " " + sBasTm + "," + rec));
return (sBasDy + " " + sBasTm + "," + rec);
}
//-------------------------------------------
//［部品］工程日付計算フォワード
//返り値：(完了日),(開始日)
//-------------------------------------------
function calcDTTM_F(sBasDy,sBasTm,sLet,_kakof,_kakot,_calender) {
var rec = '';
var flg1 = true;
var flg2 = true;
sBasDy = sBasDy.toString().split(" ")[0];
tln_com_log("☆F[param ]" + sBasDy + " / " + sBasTm + " / " + sLet + " / " + _kakof + " / " + _kakot + " / " + _calender);
//スタート時点の基準日が既に稼働対象外の場合は直近の稼働に変更する
if (_kakof > sBasTm ) {
tln_com_log("☆F[param ] (1)");
sBasTm = _kakof;
}
if (_kakot < sBasTm ) {
tln_com_log("☆F[param ] (2)");
sBasTm = _kakof;
//翌日開始
var wdate = tln_com_todatetime(sBasDy + " " + "23:59:00");
wdate.setMinutes(wdate.getMinutes() + 1);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
flg2 = true;
while (flg2){
if (getHOLIDAY_FLG(_calender,sBasDy + ' 00:00:00') == '0') {
flg2 = false;
} else {
wdate = tln_com_todatetime(sBasDy + ' 23:59:00');
wdate.setMinutes(wdate.getMinutes() + 2);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
}
}
}
rec = sBasDy + " " + sBasTm;
while (flg1){
sBasDy = sBasDy.toString().split(" ")[0];
var wdate = tln_com_todatetime(sBasDy + " " + sBasTm);
var wdatl = tln_com_todatetime(sBasDy + " " + sBasTm);
wdatl.setMinutes(wdate.getMinutes() + sLet);
var wdats = tln_com_todatetime(sBasDy + " " + _kakot);
var tdate = tln_com_date2string2(wdatl);
var tDat = tdate.toString().split(" ")[0];
var tTim = tdate.toString().split(" ")[1];
tTim = tln_com_lcut(tTim,5);
tln_com_log("☆F[wdate ]" + wdate);
tln_com_log("☆F[sLet ]" + sLet);
tln_com_log("☆F[wdatl ]" + wdatl);
tln_com_log("☆F[wdats ]" + wdats);
tln_com_log("☆F[tDat ]" + tDat);
tln_com_log("☆F[sBasDy ]" + sBasDy);
tln_com_log("☆F[tTim ]" + tTim);
tln_com_log("☆F[_kakof ]" + _kakof);
if (tDat == sBasDy && tTim <= _kakot) {
sBasTm = tTim;
flg1 = false;
} else {
//日付が異なっている場合、もしくは同日でも稼働完了時間より先の終了時刻の場合
//基準から終了日までの時間を計算し残りリードタイムを計算し
//基準日を翌日、基準時間を稼働開始時刻にして再度実施
//var sWok = wdats - wdate;
var sWok = getDiff(tln_com_date2string2(wdats),tln_com_date2string2(wdate));
if (sWok < 0) {
sWok = sWok * -1;
}
sLet = sLet - sWok;
tln_com_log("☆F[sWok ]" + sWok);
tln_com_log("☆F[sLet ]" + sLet);
var wdate = tln_com_todatetime(sBasDy + " " + "23:59:00");
wdate.setMinutes(wdate.getMinutes() + 2);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
flg2 = true;
while (flg2){
if (getHOLIDAY_FLG(_calender,sBasDy + ' 00:00:00') == '0') {
flg2 = false;
} else {
wdate = tln_com_todatetime(sBasDy + ' 23:59:00');
wdate.setMinutes(wdate.getMinutes() + 2);
var tdate = tln_com_date2string2(wdate);
sBasDy = tdate.toString().split(" ")[0];
}
}
sBasTm = _kakof;
}
}
tln_com_log("☆R[return ]" + (sBasDy + " " + sBasTm + "," + rec));
return (sBasDy + " " + sBasTm + "," + rec);
}
function getDiff(date1Str, date2Str) {
var date1 = new Date(date1Str);
var date2 = new Date(date2Str);
var msDiff = date2.getTime() - date1.getTime();
var daysDiff = Math.floor(msDiff / (1000 * 60));
return (++daysDiff) - 1;
}
```
#### サーバJS ライブラリ: XDMF_JS002_0 ([共通]仕入関連)
```javascript
//-------------------------------------------
//［処理］入庫処理
//-------------------------------------------
//入庫新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜金額
// 7 : ソース番号
// 8 : 参照番号
function exec_nyuko_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _ZEINUKI_KINGAKU, _NRSOURCE, _TXREFNO) {
//数値準備
var itemSelectList = selectBT010(_HINMOKU);
var lineDataMap = itemSelectList[0];
var _C_SURYO = _SURYO;
var _C_ZEIGAKU = _ZEINUKI_KINGAKU * getTAX_RATE(_TORIHIKIDATE);
var _C_KINGAKU_NUKI = _ZEINUKI_KINGAKU;
var _C_KINGAKU_KOMI = _ZEINUKI_KINGAKU + _C_ZEIGAKU;
var _C_TANKA_NUKI = _C_KINGAKU_NUKI / _C_SURYO;
var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
var _C_SURYO_KEISU = _C_SURYO * lineDataMap['VLKANZAN'];
var _C_TANKA_KOMI_KEISU = _C_KINGAKU_KOMI / _C_SURYO_KEISU;
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = _C_SURYO_KEISU;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = _C_KINGAKU_KOMI;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _C_SURYO_KEISU;
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + _C_KINGAKU_KOMI;
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分 (030 : 仕入入庫)
itemDataList['KBUKEBARAI'] = "030";
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(係数込税込単価)
itemDataList['PRTORIHIKI'] = _C_TANKA_KOMI_KEISU;
//取引数(係数込取引数)
itemDataList['QTTORIHIKI'] = _C_SURYO_KEISU;
//取引額(税込金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU_KOMI;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(係数込取引数)
itemDataList['QTZOUGEN'] = _C_SURYO_KEISU;
//残高増減額(税込金額
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI;
updateFT100(itemDataList);
//買掛履歴作成
//--------------------
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分 (00:入荷仕入)
itemDataList['KBKAITORI'] = "00";
//振替区分 (Null)
itemDataList['KBKAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//取引単価(税抜単価)
itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
//取引数
itemDataList['QTTORIHIKI'] = _C_SURYO;
//税抜取引額(税抜金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
//消費税額
itemDataList['AMTAX'] = _C_ZEIGAKU;
//支払依頼№
itemDataList['NRSIHARAI'] = "";
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減額(税込金額)
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI;
updateDT100(itemDataList);
//仕入先情報更新
//--------------------
var itemDataList = new Array();
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI'];
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI'];
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE'];
//期間仕入額(税込金額)
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] + _C_KINGAKU_KOMI;
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI'];
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE'];
updateDT010(itemDataList);
}
//-------------------------------------------
//入庫取消削除
// 1 : 品目コード
// 2 : 取引先
// 3 : 倉庫
// 4 : 取引日
// 5 : 数量
// 6 : 税抜金額
// 7 : ソース番号
// 8 : 参照番号
//
// * : 在庫取引№
// * : 買掛取引№
function exec_nyuko_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _ZEINUKI_KINGAKU, _NRSOURCE, _TXREFNO,
_NRZAITORI, _NRKAIKAKE) {
//数値準備
// * var itemSelectList = selectBT010(_HINMOKU);
// * var lineDataMap = itemSelectList[0];
// *
// * var _C_SURYO = _SURYO;
// * var _C_ZEIGAKU = _ZEINUKI_KINGAKU * getTAX_RATE(_TORIHIKIDATE);
// * var _C_KINGAKU_NUKI = _ZEINUKI_KINGAKU;
// * var _C_KINGAKU_KOMI = _ZEINUKI_KINGAKU + _C_ZEIGAKU;
// * var _C_TANKA_NUKI = _C_KINGAKU_NUKI / _C_SURYO;
// * var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
// *
// * var _C_SURYO_KEISU = _C_SURYO * lineDataMap['VLKANZAN'];
// * var _C_TANKA_KOMI_KEISU = _C_KINGAKU_KOMI / _C_SURYO_KEISU;
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
var itemSelectList = selectDT100(_NRKAIKAKE);
var lineDataMapDT100 = itemSelectList[0];
var _C_SURYO = lineDataMapDT100['QTTORIHIKI'];
var _C_ZEIGAKU = lineDataMapDT100['AMTAX'];
var _C_KINGAKU_NUKI = lineDataMapDT100['AMTORIHIKI'];
var _C_KINGAKU_KOMI = lineDataMapDT100['AMZOUGEN'];
var _C_TANKA_NUKI = lineDataMapDT100['PRTORIHIKI'];
//var _C_TANKA_KOMI = (使用無し)
var _C_SURYO_KEISU = lineDataMapFT100['QTTORIHIKI'];
var _C_TANKA_KOMI_KEISU = lineDataMapFT100['PRTORIHIKI'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = _C_SURYO_KEISU * -1;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = _C_KINGAKU_KOMI * -1;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + (_C_SURYO_KEISU * -1);
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_C_KINGAKU_KOMI * -1);
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
// * var itemDataList = new Array();
// *
// * //取引日
// * itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
// * //受払区分 (030 : 仕入入庫)
// * itemDataList['KBUKEBARAI'] = "030";
// * //振替区分 (Null)
// * itemDataList['KBZAIHURI'] = "";
// * //赤黒 (2:赤伝)
// * itemDataList['KBAKADEN'] = "2";
// * //効区 (F:無効)
// * itemDataList['FGVALID'] = "F";
// * //品目ID
// * itemDataList['IDHINMOKU'] = _HINMOKU;
// * //倉庫Ｃ
// * itemDataList['CDSOUKO'] = _SOUKO;
// * //相手先名
// * itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
// * //取引単価(係数込税込単価)
// * itemDataList['PRTORIHIKI'] = _C_TANKA_KOMI_KEISU;
// * //取引数(係数込取引数)
// * itemDataList['QTTORIHIKI'] = _C_SURYO_KEISU;
// * //取引額(税込金額)
// * itemDataList['AMTORIHIKI'] = _C_KINGAKU_KOMI;
// * //取引ソース№
// * itemDataList['NRSOURCE'] = _NRSOURCE;
// * //登録日時
// * itemDataList['DTCREATE'] = tln_com_nowdate();
// * //参照番号
// * itemDataList['TXREFNO'] = _TXREFNO;
// * //年度(Null)
// * itemDataList['DTNEND'] = '';
// * //月序(Null)
// * itemDataList['DTMSEQ'] = '';
// * //残高増減数(係数込取引数)
// * itemDataList['QTZOUGEN'] = _C_SURYO_KEISU * -1;
// * //残高増減額(税込金額)
// * itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
// *
// * updateFT100(itemDataList);
// *
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + "030" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//買掛履歴作成
//--------------------
// * var itemDataList = new Array();
// *
// * //仕入先ID
// * itemDataList['IDSIIRESAKI'] = _TORIHIKISAKI;
// * //取引日
// * itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
// * //取引区分 (00:入荷仕入)
// * itemDataList['KBKAITORI'] = "00";
// * //振替区分 (Null)
// * itemDataList['KBKAIHURI'] = "";
// * //赤黒 (2:赤伝)
// * itemDataList['KBAKADEN'] = "2";
// * //効区 (F:無効)
// * itemDataList['FGVALID'] = "F";
// * //品目ID
// * itemDataList['IDHINMOKU'] = _HINMOKU;
// * //取引単価(税抜単価)
// * itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
// * //取引数
// * itemDataList['QTTORIHIKI'] = _C_SURYO;
// * //税抜取引額(税抜金額)
// * itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
// * //消費税額(消費税額)
// * itemDataList['AMTAX'] = _C_ZEIGAKU;
// * //支払依頼№
// * itemDataList['NRSIHARAI'] = "";
// * //取引ソース№
// * itemDataList['NRSOURCE'] = _NRSOURCE;
// * //登録日時
// * itemDataList['DTCREATE'] = tln_com_nowdate();
// * //参照番号
// * itemDataList['TXREFNO'] = _TXREFNO;
// * //年度(Null)
// * itemDataList['DTNEND'] = '';
// * //月序(Null)
// * itemDataList['DTMSEQ'] = '';
// * //残高増減額(税込金額)
// * itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
// *
// * updateDT100(itemDataList);
// *
insertAkaDT100(_NRKAIKAKE);
//買掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE DT100 SET " +
" FGVALID = 'F' " +
" WHERE KBKAITORI = '" + "00" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//仕入先情報更新
//--------------------
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI']
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI']
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI']
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO']
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE']
//期間仕入額(税込金額)
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] - _C_KINGAKU_KOMI
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI']
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE']
updateDT010(itemDataList);
}
//-------------------------------------------
//［処理］買掛振替処理
//-------------------------------------------
//買掛振替新規登録
// 1 : 仕入先
// 2 : 取引日
// 3 : 増減区分
// 4 : 振替区分
// 5 : 適用
// 6 : 取引単価
// 7 : ソース番号
// 8 : 参照番号
function exec_kaihuri_ins(_IDSIIRESAKI, _TORIHIKIDATE, _KBZOUGEN, _KBKAIHURI, _TXTEKIYO, _ZEINUKI_HURIKAE, _NRSOURCE, _TXREFNO) {
//数値準備
var _C_SURYO = 1;
var _C_ZEIGAKU = 0;
var _C_KINGAKU_NUKI = _ZEINUKI_HURIKAE;
var _C_KINGAKU_KOMI = _ZEINUKI_HURIKAE + _C_ZEIGAKU;
var _C_TANKA_NUKI = _C_KINGAKU_NUKI / _C_SURYO;
var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
//買掛履歴作成
//--------------------
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = _IDSIIRESAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分
if (_KBZOUGEN == '0') {
//増減区分=0:残高減 → 10:振替控除
itemDataList['KBKAITORI'] = "10";
} else {
//増減区分=1:残高増 → 11:振替計上
itemDataList['KBKAITORI'] = "11";
}
//振替区分 (Null)
itemDataList['KBKAIHURI'] = _KBKAIHURI;
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = '';
//品名／摘要
itemDataList['TXHINMEI'] = _TXTEKIYO;
//単位区分
itemDataList['KBUNIT'] = 'CNT';
//取引単価(税抜単価)
itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
//取引数
itemDataList['QTTORIHIKI'] = _C_SURYO;
//税抜取引額(税抜金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
//消費税額
itemDataList['AMTAX'] = _C_ZEIGAKU;
//支払依頼№
itemDataList['NRSIHARAI'] = "";
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減額(税込金額)
if (_KBZOUGEN == '0') {
//増減区分=0:残高減 → 10:振替控除
var _AMZOUGEN = _C_KINGAKU_KOMI * -1;
} else {
//増減区分=1:残高増 → 11:振替計上
var _AMZOUGEN = _C_KINGAKU_KOMI;
}
itemDataList['AMZOUGEN'] = _AMZOUGEN;
updateDT100(itemDataList);
//仕入先情報更新
//--------------------
//仕入先情報取得
var itemSelectList = selectDT010(_IDSIIRESAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI']
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI']
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI']
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO']
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE']
//期間仕入額(税込金額)
if (_KBZOUGEN == '0') {
//増減区分=0:残高減 → 10:振替控除
var _AMZOUGEN = _C_KINGAKU_KOMI * -1;
} else {
//増減区分=1:残高増 → 11:振替計上
var _AMZOUGEN = _C_KINGAKU_KOMI;
}
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] + _AMZOUGEN
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI']
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE']
updateDT010(itemDataList);
}
//-------------------------------------------
//買掛振替取消削除
// 1 : 仕入先
// 2 : 取引日
// 3 : 増減区分
// 4 : 振替区分
// 5 : 適用
// 6 : 取引単価
// 7 : ソース番号
// 8 : 参照番号
//
// * : 買掛取引№
function exec_kaihuri_del(_IDSIIRESAKI, _TORIHIKIDATE, _KBZOUGEN, _KBKAIHURI, _TXTEKIYO, _ZEINUKI_HURIKAE, _NRSOURCE, _TXREFNO,
_NRKAIKAKE) {
//数量準備
// * var _C_SURYO = 1;
// * var _C_ZEIGAKU = 0;
// * var _C_KINGAKU_NUKI = _ZEINUKI_HURIKAE;
// * var _C_KINGAKU_KOMI = _ZEINUKI_HURIKAE + _C_ZEIGAKU;
// * var _C_TANKA_NUKI = _C_KINGAKU_NUKI / _C_SURYO;
// * var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
var itemSelectList = selectDT100(_NRKAIKAKE);
var lineDataMapDT100 = itemSelectList[0];
var _C_SURYO = lineDataMapDT100['QTTORIHIKI'];
var _C_ZEIGAKU = lineDataMapDT100['AMTAX'];
var _C_KINGAKU_NUKI = lineDataMapDT100['AMTORIHIKI'];
var _C_KINGAKU_KOMI = lineDataMapDT100['AMZOUGEN'];
if (_C_KINGAKU_KOMI < 0 ) {
_C_KINGAKU_KOMI = _C_KINGAKU_KOMI * -1;
}
var _C_TANKA_NUKI = lineDataMapDT100['PRTORIHIKI'];
//var _C_TANKA_KOMI = (使用無し)
//買掛履歴作成
//--------------------
// * var itemDataList = new Array();
// *
// * //仕入先ID
// * itemDataList['IDSIIRESAKI'] = _IDSIIRESAKI;
// * //取引日
// * itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
// * //取引区分
// * if (_KBZOUGEN == '0') {
// * //増減区分=0:残高減 → 10:振替控除
// * itemDataList['KBKAITORI'] = "10";
// * } else {
// * //増減区分=1:残高増 → 11:振替計上
// * itemDataList['KBKAITORI'] = "11";
// * }
// * //振替区分 (Null)
// * itemDataList['KBKAIHURI'] = _KBKAIHURI;
// * //赤黒 (2:赤伝)
// * itemDataList['KBAKADEN'] = "2";
// * //効区 (F:無効)
// * itemDataList['FGVALID'] = "F";
// * //品目ID
// * itemDataList['IDHINMOKU'] = '';
// * //品名／摘要
// * itemDataList['TXHINMEI'] = _TXTEKIYO;
// * //単位区分
// * itemDataList['KBUNIT'] = 'CNT';
// * //取引単価(税抜単価)
// * itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
// * //取引数
// * itemDataList['QTTORIHIKI'] = _C_SURYO;
// * //税抜取引額(税抜金額)
// * itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
// * //消費税額
// * itemDataList['AMTAX'] = _C_ZEIGAKU;
// * //支払依頼№
// * itemDataList['NRSIHARAI'] = "";
// * //取引ソース№
// * itemDataList['NRSOURCE'] = _NRSOURCE;
// * //登録日時
// * itemDataList['DTCREATE'] = tln_com_nowdate();
// * //参照番号
// * itemDataList['TXREFNO'] = _TXREFNO;
// * //年度(Null)
// * itemDataList['DTNEND'] = '';
// * //月序(Null)
// * itemDataList['DTMSEQ'] = '';
// * //残高増減額(税込金額)
// * if (_KBZOUGEN == '0') {
// * //増減区分=0:残高減 → 10:振替控除
// * var _AMZOUGEN = _C_KINGAKU_KOMI * -1;
// * } else {
// * //増減区分=1:残高増 → 11:振替計上
// * var _AMZOUGEN = _C_KINGAKU_KOMI;
// * }
// * itemDataList['AMZOUGEN'] = _AMZOUGEN * -1;
// *
// * updateDT100(itemDataList);
// *
insertAkaDT100(_NRKAIKAKE);
//買掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
if (_KBZOUGEN == '0') {
//増減区分=0:残高減 → 10:振替控除
var _KBKAITORI = "10";
} else {
//増減区分=1:残高増 → 11:振替計上
var _KBKAITORI = "11";
}
TALON.update( " UPDATE DT100 SET " +
" FGVALID = 'F' " +
" WHERE KBKAITORI = '" + _KBKAITORI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//仕入先情報更新
//--------------------
//仕入先情報取得
var itemSelectList = selectDT010(_IDSIIRESAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI']
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI']
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI']
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO']
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE']
//期間仕入額
//期間仕入額(税込金額)
if (_KBZOUGEN == '0') {
//増減区分=0:残高減 → 10:振替控除
var _AMZOUGEN = _C_KINGAKU_KOMI * -1;
} else {
//増減区分=1:残高増 → 11:振替計上
var _AMZOUGEN = _C_KINGAKU_KOMI;
}
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] + (_AMZOUGEN * -1)
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI']
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE']
updateDT010(itemDataList);
}
//-------------------------------------------
//［処理］特殊仕入処理
//-------------------------------------------
//特殊仕入新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 取引区分
// 6 : 取引数
// 7 : 税抜単価
// 8 : 税抜取引額
// 9 : 消費税額
// 10 : ソース番号
// 11 : 参照番号
function exec_tsiire_ins(
_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _KBTOKUSIIRE,
_SURYO, _ZEINUKI_TANKA, _ZEINUKI_KINGAKU, _ZEIGAKU,
_NRSOURCE, _TXREFNO) {
//数値準備
var itemSelectList = selectBT010(_HINMOKU);
var lineDataMap = itemSelectList[0];
var _C_SURYO = _SURYO;
var _C_ZEIGAKU = _ZEIGAKU;
var _C_KINGAKU_NUKI = _ZEINUKI_KINGAKU;
var _C_KINGAKU_KOMI = _ZEINUKI_KINGAKU + _C_ZEIGAKU;
var _C_TANKA_NUKI = _ZEINUKI_TANKA;
var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
var _C_SURYO_KEISU = _C_SURYO * lineDataMap['VLKANZAN'];
var _C_TANKA_KOMI_KEISU = _C_KINGAKU_KOMI / _C_SURYO_KEISU;
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
/*
取引区分=10:仕入返品 → 買掛取引区分=02:仕入返品 →出庫
取引区分=20:直接入荷 → 買掛取引区分=01:直入荷仕入 →入庫
*/
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
if (_KBTOKUSIIRE == '20') {
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = _C_SURYO_KEISU;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = _C_KINGAKU_KOMI;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(係数込取引数)
itemDataList['QTSYUKKO'] = _C_SURYO_KEISU;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(税込金額)
itemDataList['AMSYUKKO'] = _C_KINGAKU_KOMI;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
if (_KBTOKUSIIRE == '20') {
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _C_SURYO_KEISU;
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + _C_KINGAKU_KOMI;
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(係数込取引数)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _C_SURYO_KEISU;
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + _C_KINGAKU_KOMI;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分
//10:仕入返品 → 02:仕入返品 → 140:仕入返品
//20:直接入荷 → 01:直入荷仕入 → 040:直仕入入庫
if (_KBTOKUSIIRE == '20') {
itemDataList['KBUKEBARAI'] = "040";
} else {
itemDataList['KBUKEBARAI'] = "140";
}
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(係数込税込単価)
itemDataList['PRTORIHIKI'] = _C_TANKA_KOMI_KEISU;
//取引数(係数込取引数)
itemDataList['QTTORIHIKI'] = _C_SURYO_KEISU;
//取引額(税込金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU_KOMI;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
if (_KBTOKUSIIRE == '20') {
//20:直接入荷 → 01:直入荷仕入 → 040:直仕入入庫
//残高増減数(係数込税込単価
itemDataList['QTZOUGEN'] = _C_SURYO_KEISU;
//残高増減額(税込金額)
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI;
} else {
//10:仕入返品 → 02:仕入返品 → 140:仕入返品
//残高増減数(係数込税込単価
itemDataList['QTZOUGEN'] = _C_SURYO_KEISU * -1;
//残高増減額(税込金額)
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
}
updateFT100(itemDataList);
//買掛履歴作成
//--------------------
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分
//10:仕入返品 → 02:仕入返品
//20:直接入荷 → 01:直入荷仕入
if (_KBTOKUSIIRE == '20') {
itemDataList['KBKAITORI'] = "01";
} else {
itemDataList['KBKAITORI'] = "02";
}
//振替区分 (Null)
itemDataList['KBKAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//取引単価(税抜単価)
itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
//取引数
itemDataList['QTTORIHIKI'] = _C_SURYO;
//税抜取引額(税抜金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
//消費税額
itemDataList['AMTAX'] = _C_ZEIGAKU;
//支払依頼№
itemDataList['NRSIHARAI'] = "";
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減額(税込金額)
if (_KBTOKUSIIRE == '20') {
//20:直接入荷 → 01:直入荷仕入
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI;
} else {
//10:仕入返品 → 02:仕入返品
itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
}
updateDT100(itemDataList);
//仕入先情報更新
//--------------------
var itemDataList = new Array();
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI'];
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI'];
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE'];
//期間仕入額(税込金額)
if (_KBTOKUSIIRE == '20') {
//20:直接入荷 → 01:直入荷仕入
var _AMSIIRE = _C_KINGAKU_KOMI;
} else {
//10:仕入返品 → 02:仕入返品
var _AMSIIRE = _C_KINGAKU_KOMI * -1;
}
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] + _AMSIIRE;
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI'];
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE'];
updateDT010(itemDataList);
}
//-------------------------------------------
//特殊仕入取消削除
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 取引区分
// 6 : 取引数
// 7 : 税抜単価
// 8 : 税抜取引額
// 9 : 消費税額
// 10 : ソース番号
// 11 : 参照番号
//
// * : 在庫取引№
// * : 買掛取引№
function exec_tsiire_del(
_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _KBTOKUSIIRE,
_SURYO, _ZEINUKI_TANKA, _ZEINUKI_KINGAKU, _ZEIGAKU,
_NRSOURCE, _TXREFNO,
_NRZAITORI, _NRKAIKAKE) {
//数値準備
// * var itemSelectList = selectBT010(_HINMOKU);
// * var lineDataMap = itemSelectList[0];
// *
// * var _C_SURYO = _SURYO;
// * var _C_ZEIGAKU = _ZEIGAKU;
// * var _C_KINGAKU_NUKI = _ZEINUKI_KINGAKU;
// * var _C_KINGAKU_KOMI = _ZEINUKI_KINGAKU + _C_ZEIGAKU;
// * var _C_TANKA_NUKI = _ZEINUKI_TANKA;
// * var _C_TANKA_KOMI = _C_KINGAKU_KOMI / _C_SURYO;
// *
// * var _C_SURYO_KEISU = _C_SURYO * lineDataMap['VLKANZAN'];
// * var _C_TANKA_KOMI_KEISU = _C_KINGAKU_KOMI / _C_SURYO_KEISU;
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
var itemSelectList = selectDT100(_NRKAIKAKE);
var lineDataMapDT100 = itemSelectList[0];
var _C_SURYO = lineDataMapDT100['QTTORIHIKI'];
var _C_ZEIGAKU = lineDataMapDT100['AMTAX'];
var _C_KINGAKU_NUKI = lineDataMapDT100['AMTORIHIKI'];
var _C_KINGAKU_KOMI = lineDataMapDT100['AMZOUGEN'];
if (_C_KINGAKU_KOMI < 0 ) {
_C_KINGAKU_KOMI = _C_KINGAKU_KOMI * -1;
}
var _C_TANKA_NUKI = lineDataMapDT100['PRTORIHIKI'];
//var _C_TANKA_KOMI = (使用無し)
var _C_SURYO_KEISU = lineDataMapFT100['QTTORIHIKI'];
var _C_TANKA_KOMI_KEISU = lineDataMapFT100['PRTORIHIKI'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
/*
取引区分=10:仕入返品 → 買掛取引区分=02:仕入返品 →出庫
取引区分=20:直接入荷 → 買掛取引区分=01:直入荷仕入 →入庫
*/
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
if (_KBTOKUSIIRE == '20') {
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = _C_SURYO_KEISU * -1;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = _C_KINGAKU_KOMI * -1;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(係数込取引数)
itemDataList['QTSYUKKO'] = _C_SURYO_KEISU * -1;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(税込金額)
itemDataList['AMSYUKKO'] = _C_KINGAKU_KOMI * -1;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
if (_KBTOKUSIIRE == '20') {
//期間入庫数(係数込取引数)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + (_C_SURYO_KEISU * -1);
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期間入庫額(税込金額)
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_C_KINGAKU_KOMI * -1);
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(係数込取引数)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_C_SURYO_KEISU * -1);
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(税込金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_C_KINGAKU_KOMI * -1);
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
// * var itemDataList = new Array();
// *
// * //取引日
// * itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
// * //受払区分
// * //10:仕入返品 → 02:仕入返品 → 140:仕入返品
// * //20:直接入荷 → 01:直入荷仕入 → 040:直仕入入庫
// * if (_KBTOKUSIIRE == '20') {
// * itemDataList['KBUKEBARAI'] = "040";
// * } else {
// * itemDataList['KBUKEBARAI'] = "140";
// * }
// * //振替区分 (Null)
// * itemDataList['KBZAIHURI'] = "";
// * //赤黒 (2:赤伝)
// * itemDataList['KBAKADEN'] = "2";
// * //効区 (F:無効)
// * itemDataList['FGVALID'] = "F";
// * //品目ID
// * itemDataList['IDHINMOKU'] = _HINMOKU;
// * //倉庫Ｃ
// * itemDataList['CDSOUKO'] = _SOUKO;
// * //相手先名
// * itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
// * //取引単価(係数込税込単価)
// * itemDataList['PRTORIHIKI'] = _C_TANKA_KOMI_KEISU;
// * //取引数(係数込取引数)
// * itemDataList['QTTORIHIKI'] = _C_SURYO_KEISU;
// * //取引額(税込金額)
// * itemDataList['AMTORIHIKI'] = _C_KINGAKU_KOMI;
// * //取引ソース№
// * itemDataList['NRSOURCE'] = _NRSOURCE;
// * //登録日時
// * itemDataList['DTCREATE'] = tln_com_nowdate();
// * //参照番号
// * itemDataList['TXREFNO'] = _TXREFNO;
// * //年度(Null)
// * itemDataList['DTNEND'] = '';
// * //月序(Null)
// * itemDataList['DTMSEQ'] = '';
// * if (_KBTOKUSIIRE == '20') {
// * //20:直接入荷 → 01:直入荷仕入 → 040:直仕入入庫
// * //残高増減数(係数込取引数)
// * itemDataList['QTZOUGEN'] = _C_SURYO_KEISU * -1;
// * //残高増減額(税込金額)
// * itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
// * } else {
// * //10:仕入返品 → 02:仕入返品 → 140:仕入返品
// * //残高増減数(係数込取引数)
// * itemDataList['QTZOUGEN'] = (_C_SURYO_KEISU * -1) * -1;
// * //残高増減額(税込金額)
// * itemDataList['AMZOUGEN'] = (_C_KINGAKU_KOMI * -1) * -1;
// * }
// *
// * updateFT100(itemDataList);
// *
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
if (_KBTOKUSIIRE == '20') {
var _KBUKEBARAI = "040";
} else {
var _KBUKEBARAI = "140";
}
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + _KBUKEBARAI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//買掛履歴作成
//--------------------
// * var itemDataList = new Array();
// *
// * //仕入先ID
// * itemDataList['IDSIIRESAKI'] = _TORIHIKISAKI;
// * //取引日
// * itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
// * //取引区分
// * //10:仕入返品 → 02:仕入返品
// * //20:直接入荷 → 01:直入荷仕入
// * if (_KBTOKUSIIRE == '20') {
// * itemDataList['KBKAITORI'] = "01";
// * } else {
// * itemDataList['KBKAITORI'] = "02";
// * }
// * //振替区分 (Null)
// * itemDataList['KBKAIHURI'] = "";
// * //赤黒 (2:赤伝)
// * itemDataList['KBAKADEN'] = "2";
// * //効区 (F:無効)
// * itemDataList['FGVALID'] = "F";
// * //品目ID
// * itemDataList['IDHINMOKU'] = _HINMOKU;
// * //取引単価(税抜単価)
// * itemDataList['PRTORIHIKI'] = _C_TANKA_NUKI;
// * //取引数
// * itemDataList['QTTORIHIKI'] = _C_SURYO;
// * //税抜取引額(税抜金額)
// * itemDataList['AMTORIHIKI'] = _C_KINGAKU_NUKI;
// * //消費税額
// * itemDataList['AMTAX'] = _C_ZEIGAKU;
// * //支払依頼№
// * itemDataList['NRSIHARAI'] = "";
// * //取引ソース№
// * itemDataList['NRSOURCE'] = _NRSOURCE;
// * //登録日時
// * itemDataList['DTCREATE'] = tln_com_nowdate();
// * //参照番号
// * itemDataList['TXREFNO'] = _TXREFNO;
// * //年度(Null)
// * itemDataList['DTNEND'] = '';
// * //月序(Null)
// * itemDataList['DTMSEQ'] = '';
// * //残高増減額(税込金額)
// * if (_KBTOKUSIIRE == '20') {
// * //20:直接入荷 → 01:直入荷仕入
// * itemDataList['AMZOUGEN'] = _C_KINGAKU_KOMI * -1;
// * } else {
// * //10:仕入返品 → 02:仕入返品
// * itemDataList['AMZOUGEN'] = (_C_KINGAKU_KOMI * -1) * -1;
// * }
// *
// * updateDT100(itemDataList);
// *
insertAkaDT100(_NRKAIKAKE);
//買掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
if (_KBTOKUSIIRE == '20') {
//10:仕入返品 → 02:仕入返品
var _KBKAITORI = "01";
} else {
//20:直接入荷 → 01:直入荷仕入
var _KBKAITORI = "02";
}
TALON.update( " UPDATE DT100 SET " +
" FGVALID = 'F' " +
" WHERE KBKAITORI = '" + _KBKAITORI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//仕入先情報更新
//--------------------
var itemDataList = new Array();
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI']
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI']
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI']
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO']
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE']
//期間仕入額(税込金額)
if (_KBTOKUSIIRE == '20') {
//20:直接入荷 → 01:直入荷仕入
var _AMSIIRE = _C_KINGAKU_KOMI;
} else {
//10:仕入返品 → 02:仕入返品
var _AMSIIRE = _C_KINGAKU_KOMI * -1;
}
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'] + (_AMSIIRE * -1);
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI']
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE']
updateDT010(itemDataList);
}
//-------------------------------------------
//［処理］仕入関連処理
//-------------------------------------------
//-------------------------------------------
//入荷見出し
function selectHT020(_NRNYUKA) {
var sql =
"SELECT " +
" NRNYUKA " +
",IDSIIRESAKI " +
",DTNYUKA " +
",DTKENSYU " +
",CDSOUKO " +
",STNYUKA " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM HT020 " +
"WHERE NRNYUKA = '" + _NRNYUKA + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//発注見出し
function selectHT010(_NRHATTYU) {
var sql =
"SELECT " +
" HT010.NRHATTYU " +
",HT010.IDSIIRESAKI " +
",HT010.DTHATTYU " +
",HT010.DTCREATE " +
",HT010.CDSOUKO " +
",HT010.TXTEKIYO " +
",HT010.STHATTYU " +
",HT010.CREATED_DATE " +
",HT010.CREATED_BY " +
",HT010.CREATED_PRG_NM " +
",HT010.UPDATED_DATE " +
",HT010.UPDATED_BY " +
",HT010.UPDATED_PRG_NM " +
",HT010.MODIFY_COUNT " +
",HT011.QTHATTYU " +
",HT011.QTKENSYU " +
"FROM HT010 " +
"INNER JOIN ( SELECT NRHATTYU, SUM(QTHATTYU) AS QTHATTYU, SUM(QTKENSYU) AS QTKENSYU FROM HT011 GROUP BY NRHATTYU ) HT011 " +
" ON HT011.NRHATTYU = HT010.NRHATTYU " +
"WHERE HT010.NRHATTYU = '" + _NRHATTYU + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
function updateHT010(itemDataList) {
//項目
var itemColNameTbl = [
'NRHATTYU'
,'IDSIIRESAKI'
,'DTHATTYU'
,'DTCREATE'
,'CDSOUKO'
,'TXTEKIYO'
,'STHATTYU'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
var itemSelectList = selectHT010(itemDataList['NRHATTYU']);
var lineDataMap = itemSelectList[0];
var _MODIFY_COUNT = lineDataMap['MODIFY_COUNT'];
//UPDATE
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = (_MODIFY_COUNT + 1);
var whereList = new Array();
var whereTbl1 = [ null, '=' , 'NRHATTYU' ];
whereList.push(whereTbl1);
TALON.updateByMap( 'HT010', itemDataList , itemColNameTbl , whereList );
}
//発注明細(入荷№)
function selectHT011_NRNYUKA(_NRNYUKA) {
var sql =
"SELECT " +
" HT011.NRHATTYU " +
",HT011.SQHATTYU " +
",HT011.IDHINMOKU " +
",HT011.PRHATTYU " +
",HT011.QTHATTYU " +
",HT011.QTKENSYU " +
",HT011.DTNOUKI " +
",HT011.NRNYUKA " +
",HT011.NRSOURCE " +
",HT011.QTKANZAN " +
",HT011.FGNYUKA " +
",HT011.CREATED_DATE " +
",HT011.CREATED_BY " +
",HT011.CREATED_PRG_NM " +
",HT011.UPDATED_DATE " +
",HT011.UPDATED_BY " +
",HT011.UPDATED_PRG_NM " +
",HT011.MODIFY_COUNT " +
",HT010.IDSIIRESAKI " +
",HT010.CDSOUKO " +
"FROM HT011 " +
"INNER JOIN HT010 " +
" ON HT010.NRHATTYU = HT011.NRHATTYU " +
"WHERE NRNYUKA = '" + _NRNYUKA + "' "
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//在庫増減履歴(受払区分＋取引ソース番号）
function selectFT100_NRSOURCE(_KBUKEBARAI,_NRSOURCE) {
var sql =
"SELECT " +
" NRZAITORI " +
",DTTORIHIKI " +
",KBUKEBARAI " +
",KBZAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",CDSOUKO " +
",TXAITESAKI " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMSAGAKU " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",QTZOUGEN " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT100 " +
"WHERE KBUKEBARAI = '" + _KBUKEBARAI + "'" +
" AND FGVALID = 'T'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//買掛振替[KT010]
function selectKT010(_NRKAIHURI) {
var sql =
"SELECT " +
" NRKAIHURI " +
",KBKAIHURI " +
",DTHURIKAE " +
",IDSIIRESAKI " +
",AMHURIKAE " +
",TXTEKIYO " +
",NRSOURCE " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
",KBZOUGEN " +
"FROM KT010 " +
"WHERE NRKAIHURI = '" + _NRKAIHURI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//買掛増減履歴(受払区分＋取引ソース番号）
function selectDT100_NRSOURCE(_KBKAITORI,_NRSOURCE) {
var sql =
"SELECT " +
" NRKAIKAKE " +
",IDSIIRESAKI " +
",DTTORIHIKI " +
",KBKAITORI " +
",KBKAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMTAX " +
",NRSIHARAI " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM DT100 " +
"WHERE KBKAITORI = '" + _KBKAITORI + "'" +
" AND FGVALID = 'T'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//特殊仕入[KT020]
function selectKT020(_NRTOKUSIIRE) {
var sql =
"SELECT " +
" NRTOKUSIIRE " +
",KBTOKUSIIRE " +
",IDSIIRESAKI " +
",DTTORIHIKI " +
",IDHINMOKU " +
",CDSOUKO " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",PRZAIKO " +
",TXTEKIYO " +
",NRSOURCE " +
",AMTORIHIKI " +
",AMTAX " +
",QTZAITORI " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM KT020 " +
"WHERE NRTOKUSIIRE = '" + _NRTOKUSIIRE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［処理］支払関連
//-------------------------------------------
//支払依頼[DT110]
function selectDT110(_NRSIHARAI) {
var sql =
"SELECT " +
" NRSIHARAI " +
" ,IDSIIRESAKI " +
" ,DTSIHARAI " +
" ,DTSYONIN " +
" ,KBSIHARAI " +
" ,TXSEIKYU " +
" ,TXTEKIYO " +
" ,NRSOURCE " +
" ,AMSIHARAI " +
" ,STSIHARAI " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
"FROM DT110 " +
"WHERE NRSIHARAI = '" + _NRSIHARAI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［処理］支払承認
//-------------------------------------------
// 1 : 仕入先ID
// 2 : 支払承認日
// 3 : 支払依頼額
// 4 : 摘要
// 5 : ソース番号
// 6 : 参照番号
function exec_shiharaisyonin_ins(_TORIHIKISAKI, _TORIHIKIDATE, _AMSIHARAI, _TXTEKIYO , _NRSOURCE, _TXREFNO) {
//買掛履歴作成
//--------------------
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分 (90:支払)
itemDataList['KBKAITORI'] = "90";
//振替区分 (Null)
itemDataList['KBKAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = "";
//品目名／摘要
itemDataList['TXHINMEI'] = _TXTEKIYO;
//取引単価(税抜単価)
itemDataList['PRTORIHIKI'] = _AMSIHARAI;
//取引数
itemDataList['QTTORIHIKI'] = 1;
//税抜取引額(税抜金額)
itemDataList['AMTORIHIKI'] = _AMSIHARAI;
//消費税額
itemDataList['AMTAX'] = 0;
//支払依頼№
itemDataList['NRSIHARAI'] = "";
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減額(税込金額)
itemDataList['AMZOUGEN'] = _AMSIHARAI;
updateDT100(itemDataList);
//仕入先情報更新
//--------------------
var itemDataList = new Array();
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI'];
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI'];
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE'];
//期間仕入額(税込金額)
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE'];
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI'] + _AMSIHARAI;
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE'];
updateDT010(itemDataList);
}
// 1 : 仕入先ID
// 2 : 支払承認日
// 3 : 支払依頼額
// 4 : 摘要
// 5 : ソース番号
// 6 : 参照番号
// * : 買掛取引№
function exec_shiharaisyonin_del(_TORIHIKISAKI, _TORIHIKIDATE, _AMSIHARAI, _TXTEKIYO , _NRSOURCE, _TXREFNO, _NRKAIKAKE) {
//買掛履歴作成
insertAkaDT100(_NRKAIKAKE);
//買掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE DT100 SET " +
" FGVALID = 'F' " +
" WHERE KBKAITORI = '" + "90" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//仕入先情報更新
//--------------------
//仕入先情報取得
var itemSelectList = selectDT010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//仕入先ID
itemDataList['IDSIIRESAKI'] = lineDataMap['IDSIIRESAKI']
//支払方法区分
itemDataList['KBSIHARAI'] = lineDataMap['KBSIHARAI']
//振込銀行口座
itemDataList['TXHURIKOMI'] = lineDataMap['TXHURIKOMI']
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO']
//期首買掛残高
itemDataList['AMKISYUKAIKAKE'] = lineDataMap['AMKISYUKAIKAKE']
//期間仕入額(税込金額)
itemDataList['AMSIIRE'] = lineDataMap['AMSIIRE']
//期間支払額
itemDataList['AMSIHARAI'] = lineDataMap['AMSIHARAI'] - _AMSIHARAI
//現買掛残高
itemDataList['AMGENKAIKAKE'] = lineDataMap['AMGENKAIKAKE']
updateDT010(itemDataList);
}
```
#### サーバJS ライブラリ: XDMF_JS003_0 ([共通]製造関連)
```javascript
//-------------------------------------------
//［処理］出庫処理
//-------------------------------------------
//出庫新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
function exec_syuko_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO) {
//在庫更新
//--------------------
var _QTZOUGEN = _SURYO * -1
var _AMZOUGEN = _KINGAKU * -1
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SURYO;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _KINGAKU;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _SURYO;
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + _KINGAKU;
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分 (160:材料出庫)
itemDataList['KBUKEBARAI'] = "160";
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _TANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _SURYO;
//取引額(金額)
itemDataList['AMTORIHIKI'] = _KINGAKU;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)
itemDataList['QTZOUGEN'] = _QTZOUGEN;
//残高増減額(金額)
itemDataList['AMZOUGEN'] = _AMZOUGEN;
updateFT100(itemDataList);
}
//-------------------------------------------
//出庫取消削除
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
//
// * : 在庫取引№
function exec_syuko_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO,
_NRZAITORI
) {
//数値準備(赤データで再セット)
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
_SURYO = lineDataMapFT100['QTTORIHIKI'];
_KINGAKU = lineDataMapFT100['AMTORIHIKI'];
_TANKA = lineDataMapFT100['PRTORIHIKI'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SURYO * -1;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _KINGAKU * -1;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_SURYO * -1);
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_KINGAKU * -1);
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + "160" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'" +
" AND NRZAITORI = '" + _NRZAITORI + "'"
);
}
//-------------------------------------------
//［処理］完成・出荷(完成入庫)処理
//-------------------------------------------
//完成・出荷入庫新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
function exec_kansei_nyuko_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO) {
//計算
//--------------------
var _C_KINGAKU = _SURYO * _TANKA;
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数(数量)
itemDataList['QTNYUKO'] = _SURYO;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額(金額)
itemDataList['AMNYUKO'] = _C_KINGAKU;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数(数量)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _SURYO;
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額(金額)
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + _C_KINGAKU;
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分 (060 : 完成入庫)
itemDataList['KBUKEBARAI'] = "060";
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _TANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _SURYO;
//取引額(金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)
itemDataList['QTZOUGEN'] = _SURYO;
//残高増減額(金額)
itemDataList['AMZOUGEN'] = _C_KINGAKU;
updateFT100(itemDataList);
}
//-------------------------------------------
//完成出荷入庫取消削除
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
//
// * : 在庫取引№
function exec_kansei_nyuko_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO,
_NRZAITORI) {
//数値準備(赤データで再セット)
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
_SURYO = lineDataMapFT100['QTTORIHIKI'];
_KINGAKU = lineDataMapFT100['AMTORIHIKI'];
_TANKA = lineDataMapFT100['PRTORIHIKI'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数(数量)
itemDataList['QTNYUKO'] = _SURYO * -1;
//期間出庫数
itemDataList['QTSYUKKO'] = 0;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額(金額)
itemDataList['AMNYUKO'] = _KINGAKU * -1;
//期間出庫額
itemDataList['AMSYUKKO'] = 0;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数(数量)
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + (_SURYO * -1);
//期間出庫数
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額(金額)
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_KINGAKU * -1);
//期間出庫額
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + "060" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
}
//-------------------------------------------
//［処理］完成・出荷(廃棄)処理
//-------------------------------------------
//完成・出荷(廃棄)新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
function exec_kansei_haiki_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO) {
//計算
//--------------------
var _C_KINGAKU = _SURYO * _TANKA;
//在庫更新
//--------------------
var _QTZOUGEN = _SURYO * -1
var _AMZOUGEN = _C_KINGAKU * -1
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SURYO;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _C_KINGAKU;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _SURYO;
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + _C_KINGAKU;
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分 (120 : 振替出庫)
itemDataList['KBUKEBARAI'] = "120";
//振替区分 (11:雑損)
itemDataList['KBZAIHURI'] = "11";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _TANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _SURYO;
//取引額(金額)
itemDataList['AMTORIHIKI'] = _C_KINGAKU;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)
itemDataList['QTZOUGEN'] = _QTZOUGEN;
//残高増減額(金額)
itemDataList['AMZOUGEN'] = _AMZOUGEN;
updateFT100(itemDataList);
}
//-------------------------------------------
//完成・出荷(廃棄)取消削除
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量
// 6 : 税抜単価
// 7 : 税抜金額
// 8 : ソース番号
// 9 : 参照番号
//
// * : 在庫取引№
function exec_kansei_haiki_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _SURYO, _TANKA, _KINGAKU, _NRSOURCE, _TXREFNO,
_NRZAITORI) {
//数値準備(赤データで再セット)
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
_SURYO = lineDataMapFT100['QTTORIHIKI'];
_KINGAKU = lineDataMapFT100['AMTORIHIKI'];
_TANKA = lineDataMapFT100['PRTORIHIKI'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SURYO * -1;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _KINGAKU * -1;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_SURYO * -1);
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_KINGAKU * -1);
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + "120" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
}
//-------------------------------------------
//［処理］完成・出荷(販売出荷)処理
//-------------------------------------------
//完成・出荷(販売出荷)新規登録
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量(出荷数)
// 6 : 単価(実勢原価)
// 7 : 単価(受注単価)
// 8 : 実勢原価額
// 9 : ソース番号
// 10 : 参照番号
function exec_kansei_hanbai_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE,
_SYUKA_SURYO, _JISEI_GENKA, _JUCHU_TANKA, _JISEI_KINGAKU,
_NRSOURCE, _TXREFNO) {
//計算
//取引額＝実勢原価額
//出荷額
var _C_SYUKA_KINGAKU = _SYUKA_SURYO * _JISEI_GENKA;
var _C_JISEI_KINGAKU = _C_SYUKA_KINGAKU;
//受注金額/消費税額
var _C_JUCHU_KINGAKU_NUKI = _SYUKA_SURYO * _JUCHU_TANKA;
var _C_JUCHU_ZEIGAKU = _C_JUCHU_KINGAKU_NUKI * getTAX_RATE(_TORIHIKIDATE);
var _C_JUCHU_KINGAKU_KOMI = _C_JUCHU_KINGAKU_NUKI + _C_JUCHU_ZEIGAKU;
//在庫更新
//--------------------
var _QTZOUGEN = _SYUKA_SURYO * -1
var _AMZOUGEN = _C_SYUKA_KINGAKU * -1
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SYUKA_SURYO;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _C_SYUKA_KINGAKU;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _SYUKA_SURYO;
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + _C_SYUKA_KINGAKU;
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分 (130 : 売上出庫)
itemDataList['KBUKEBARAI'] = "130";
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _JISEI_GENKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _SYUKA_SURYO;
//取引額(金額)
itemDataList['AMTORIHIKI'] = _C_SYUKA_KINGAKU;
//取引差額 ['（【製造指示】出荷数 *【製造指示】受注単価）－【製造指示】実勢原価額]
itemDataList['AMSAGAKU'] = (_SYUKA_SURYO * _JUCHU_TANKA) - _C_JISEI_KINGAKU;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)
itemDataList['QTZOUGEN'] = _QTZOUGEN;
//残高増減額(金額)
itemDataList['AMZOUGEN'] = _AMZOUGEN;
updateFT100(itemDataList);
//売掛履歴作成
//--------------------
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分(00 : 出荷売上)
itemDataList['KBURITORI'] = "00";
//振替区分(Null)
itemDataList['KBURIHURI'] = "";
//赤黒(1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区(T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//取引単価(受注単価)
itemDataList['PRTORIHIKI'] = _JUCHU_TANKA;
//取引数(出荷数)
itemDataList['QTTORIHIKI'] = _SYUKA_SURYO;
//消費税額(受注金額消費税額)
itemDataList['AMTAX'] = _C_JUCHU_ZEIGAKU;
//販売原価
itemDataList['AMGENKA'] = _C_JISEI_KINGAKU;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//請求№(Null)
itemDataList['NRSEIKYU'] = "";
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//粗利額
itemDataList['AMARARI'] = _C_JUCHU_KINGAKU_NUKI - _C_JISEI_KINGAKU;
//残高増減額
itemDataList['AMZOUGEN'] = _C_JUCHU_KINGAKU_KOMI;
//税抜取引額
itemDataList['AMTORIHIKI'] = _C_JUCHU_KINGAKU_NUKI;
updateET100(itemDataList);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + _C_JUCHU_KINGAKU_KOMI;
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//完成・出荷(販売出荷)取消削除
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 数量(出荷数)
// 6 : 数量(受注数)
// 7 : 単価(実勢原価)
// 8 : 単価(受注単価)
// 9 : 実勢原価額
// 10 : ソース番号
// 11 : 参照番号
//
// * : 在庫取引№
// * : 売掛取引№
function exec_kansei_hanbai_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE,
_SYUKA_SURYO, _JISEI_GENKA, _JUCHU_TANKA, _JISEI_KINGAKU,
_NRSOURCE, _TXREFNO,
_NRZAITORI, _NRURIKAKE) {
//数値準備
// * //出荷額
// * var _C_SYUKA_KINGAKU = _SYUKA_SURYO * _JISEI_GENKA;
// * //受注金額/消費税額
// * var _C_JUCHU_KINGAKU_NUKI = _SYUKA_SURYO * _JUCHU_TANKA;
// * var _C_JUCHU_ZEIGAKU = _C_JUCHU_KINGAKU_NUKI * getTAX_RATE(_TORIHIKIDATE);
// * var _C_JUCHU_KINGAKU_KOMI = _C_JUCHU_KINGAKU_NUKI + _C_JUCHU_ZEIGAKU;
//数値準備(赤データで再セット)
var itemSelectList = selectFT100(_NRZAITORI);
var lineDataMapFT100 = itemSelectList[0];
var itemSelectList = selectET100(_NRURIKAKE);
var lineDataMapET100 = itemSelectList[0];
_SYUKA_SURYO = lineDataMapFT100['QTTORIHIKI'];
_JISEI_GENKA = lineDataMapFT100['PRTORIHIKI'];
var _C_SYUKA_KINGAKU = lineDataMapFT100['AMTORIHIKI'];
var _C_JUCHU_KINGAKU_NUKI = lineDataMapET100['AMTORIHIKI'];
var _C_JUCHU_ZEIGAKU = lineDataMapET100['AMTAX'];
var _C_JUCHU_KINGAKU_KOMI = _C_JUCHU_KINGAKU_NUKI + _C_JUCHU_ZEIGAKU;
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数
itemDataList['QTNYUKO'] = 0;
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = _SYUKA_SURYO * -1;
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額
itemDataList['AMNYUKO'] = 0;
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = _C_SYUKA_KINGAKU * -1;
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
//期間出庫数(数量)
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_SYUKA_SURYO * -1);
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
//期間出庫額(金額)
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_C_SYUKA_KINGAKU * -1);
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + "130" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//売掛履歴作成
//--------------------
insertAkaET100(_NRURIKAKE);
//売掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE ET100 SET " +
" FGVALID = 'F' " +
" WHERE KBURITORI = '" + "00" + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_C_JUCHU_KINGAKU_KOMI * -1);
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//［処理］売掛振替登録処理
//-------------------------------------------
//売掛振替登録処理
// 1 : 取引先コード
// 2 : 取引日
// 3 : 増減区分
// 4 : 振替区分
// 5 : 適用
// 6 : 振替額
// 7 : ソース番号
// 8 : 参照番号(売掛振替№)
function exec_urikake_ins(_TORIHIKISAKI, _TORIHIKIDATE, _ZOGENKBN, _HURIKAEKBN, _TEKIYO, _HURIKAEGAKU,
_NRSOURCE, _TXREFNO) {
//売掛履歴作成
//--------------------
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分(00 : 出荷売上)
if (_ZOGENKBN == '0') {
//10:振替控除
itemDataList['KBURITORI'] = "10";
} else {
//11:振替計上
itemDataList['KBURITORI'] = "11";
}
//振替区分(Null)
itemDataList['KBURIHURI'] = _HURIKAEKBN;
//赤黒(1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区(T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = '';
//品名／摘要
itemDataList['TXHINMEI'] = _TEKIYO;
//単位区分
itemDataList['KBUNIT'] = 'CNT';
//取引単価
itemDataList['PRTORIHIKI'] = _HURIKAEGAKU;
//取引数
itemDataList['QTTORIHIKI'] = 1;
//消費税額
itemDataList['AMTAX'] = 0;
//販売原価
itemDataList['AMGENKA'] = 0;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//請求№(Null)
itemDataList['NRSEIKYU'] = "";
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//粗利額
itemDataList['AMARARI'] = 0;
//残高増減額
//取引区分(00 : 出荷売上)
if (_ZOGENKBN == '0') {
//10:振替控除
itemDataList['AMZOUGEN'] = _HURIKAEGAKU * -1;
} else {
//11:振替計上
itemDataList['AMZOUGEN'] = _HURIKAEGAKU;
}
//税抜取引額
itemDataList['AMTORIHIKI'] = _HURIKAEGAKU;
updateET100(itemDataList);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
if (_ZOGENKBN == '0') {
//10:振替控除
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_HURIKAEGAKU * -1);
} else {
//11:振替計上
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + _HURIKAEGAKU;
}
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//売掛振替削除処理
// 1 : 取引先コード
// 2 : 取引日
// 3 : 増減区分
// 4 : 振替区分
// 5 : 適用
// 6 : 振替額
// 7 : ソース番号
// 8 : 参照番号(売掛振替№)
// * : 売掛取引№
// * : 取引区分
function exec_urikake_del(_TORIHIKISAKI, _TORIHIKIDATE, _ZOGENKBN, _HURIKAEKBN, _TEKIYO, _HURIKAEGAKU,
_NRSOURCE, _TXREFNO, _NRURIKAKE,_KBURITORI) {
//売掛履歴作成
//--------------------
insertAkaET100(_NRURIKAKE);
//売掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE ET100 SET " +
" FGVALID = 'F' " +
" WHERE KBURITORI = '" + _KBURITORI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
//if (_ZOGENKBN == '0') {
if (_KBURITORI == '10') {
//増減区分=0:残高減 → 取引区分=10:振替控除
//10:振替控除
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + ((_HURIKAEGAKU * -1) * -1);
} else {
//11:振替計上
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_HURIKAEGAKU * -1);
}
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//［処理］特殊売上登録処理
//-------------------------------------------
//特殊売上登録処理
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 取引区分
// 6 : 数量
// 7 : 単価
// 8 : 消費税
// 9 税抜取引額
// 10 : 在庫単価
// 11 : 在庫取引数
// 12 : ソース番号
// 13 : 参照番号
function exec_tokuuri_ins(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _TORIHIKIKBN,
_SURYO, _TANKA, _SYOHIZEI, _NUKIGAKU, _ZAIKOTANKA, _ZAIKOTORIHIKISU,
_NRSOURCE, _TXREFNO) {
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数／期間出庫数(数量)
if (_TORIHIKIKBN == '10') {
itemDataList['QTNYUKO'] = _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額／期間出庫額(金額)
if (_TORIHIKIKBN == '10') {
itemDataList['AMNYUKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA);
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数／期間出庫数(数量)
if (_TORIHIKIKBN == '10') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額／期間出庫額(金額)
if (_TORIHIKIKBN == '10') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分
if (_TORIHIKIKBN == '10') {
itemDataList['KBUKEBARAI'] = "050";
} else {
itemDataList['KBUKEBARAI'] = "150";
}
//振替区分 (Null)
itemDataList['KBZAIHURI'] = "";
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _TORIHIKISAKI;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _ZAIKOTANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _ZAIKOTORIHIKISU;
//取引額(金額)
itemDataList['AMTORIHIKI'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//取引差額
itemDataList['AMSAGAKU'] = _NUKIGAKU - (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)／残高増減額(金額)
if (_TORIHIKIKBN == '10') {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
} else {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU * -1;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU) * -1;
}
updateFT100(itemDataList);
//売掛履歴作成
//--------------------
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分
if (_TORIHIKIKBN == '10') {
itemDataList['KBURITORI'] = "02";
} else {
itemDataList['KBURITORI'] = "01";
}
//振替区分(Null)
itemDataList['KBURIHURI'] = "";
//赤黒(1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区(T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//取引単価
itemDataList['PRTORIHIKI'] = _TANKA;
//取引数(出荷数)
itemDataList['QTTORIHIKI'] = _SURYO;
//消費税額
itemDataList['AMTAX'] = _SYOHIZEI;
//販売原価
itemDataList['AMGENKA'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//請求№(Null)
itemDataList['NRSEIKYU'] = "";
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//粗利額
itemDataList['AMARARI'] = _NUKIGAKU - (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//残高増減額
if (_TORIHIKIKBN == '10') {
itemDataList['AMZOUGEN'] = (_NUKIGAKU + _SYOHIZEI) * -1;
} else {
itemDataList['AMZOUGEN'] = _NUKIGAKU + _SYOHIZEI;
}
//税抜取引額
itemDataList['AMTORIHIKI'] = _NUKIGAKU;
updateET100(itemDataList);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
if (_TORIHIKIKBN == '10') {
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + ( (_NUKIGAKU + _SYOHIZEI) * -1 );
} else {
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_NUKIGAKU + _SYOHIZEI);
}
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//特殊売上削除処理
// 1 : 品目コード
// 2 : 取引先コード
// 3 : 倉庫コード
// 4 : 取引日
// 5 : 取引区分
// 6 : 数量
// 7 : 単価
// 8 : 消費税
// 9 税抜取引額
// 10 : 在庫単価
// 11 : 在庫取引数
// 12 : ソース番号
// 13 : 参照番号
//
// * : 在庫取引№
// * : 売掛取引№
function exec_tokuuri_del(_HINMOKU, _TORIHIKISAKI, _SOUKO, _TORIHIKIDATE, _TORIHIKIKBN,
_SURYO, _TANKA, _SYOHIZEI, _NUKIGAKU, _ZAIKOTANKA, _ZAIKOTORIHIKISU,
_NRSOURCE, _TXREFNO,
_NRZAITORI, _NRURIKAKE) {
//数値準備(赤データで再セット)
// * var itemSelectList = selectFT100(_NRZAITORI);
// * var lineDataMapFT100 = itemSelectList[0];
// * _SYUKA_SURYO = lineDataMapFT100['QTTORIHIKI'];
// * _JISEI_GENKA = lineDataMapFT100['PRTORIHIKI'];
// * var _C_SYUKA_KINGAKU = lineDataMapFT100['AMTORIHIKI'];
var itemSelectList = selectET100(_NRURIKAKE);
var lineDataMapET100 = itemSelectList[0];
// * var _C_JUCHU_KINGAKU_NUKI = lineDataMapET100['AMTORIHIKI'];
// * var _C_JUCHU_ZEIGAKU = lineDataMapET100['AMTAX'];
// * var _C_JUCHU_KINGAKU_KOMI = _C_JUCHU_KINGAKU_NUKI + _C_JUCHU_ZEIGAKU;
var _AMZOUGEN = lineDataMapET100['AMZOUGEN'];
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数／期間出庫数(数量)
if (_TORIHIKIKBN == '02') {
itemDataList['QTNYUKO'] = _ZAIKOTORIHIKISU * -1;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _ZAIKOTORIHIKISU * -1;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額／期間出庫額(金額)
if (_TORIHIKIKBN == '02') {
itemDataList['AMNYUKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1;
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1 ;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数／期間出庫数(数量)
if (_TORIHIKIKBN == '02') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + (_ZAIKOTORIHIKISU * -1);
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_ZAIKOTORIHIKISU * -1);
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額／期間出庫額(金額)
if (_TORIHIKIKBN == '02') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + ( (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1);
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + ( (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1) ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
//受払区分
if (_TORIHIKIKBN == '02') {
var _KBUKEBARAI = "050";
} else {
var _KBUKEBARAI = "150";
}
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + _KBUKEBARAI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//売掛履歴作成
//--------------------
insertAkaET100(_NRURIKAKE);
//売掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE ET100 SET " +
" FGVALID = 'F' " +
" WHERE KBURITORI = '" + _TORIHIKIKBN + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
//itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_C_JUCHU_KINGAKU_KOMI * -1);
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'] + (_AMZOUGEN * -1);
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'];
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
//［処理］在庫振替の保守
//-------------------------------------------
//在庫振替登録処理
// 1 : 品目コード
// 2 : 倉庫コード
// 3 : 振替日（取引日）
// 4 : 増減区分
// 4 : 振替区分
// 5 : 取引数量
// 6 : 取引単価
// 7 : ソース番号
// 8 : 参照番号
function exec_zaihuri_ins(_HINMOKU, _SOUKO, _TORIHIKIDATE, _ZOGENKBN, _HURIKAEKBN,
_ZAIKOTORIHIKISU, _ZAIKOTANKA, _NRSOURCE, _TXREFNO) {
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数／期間出庫数(数量)
if (_ZOGENKBN == '1') {
itemDataList['QTNYUKO'] = _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額／期間出庫額(金額)
if (_ZOGENKBN == '1') {
itemDataList['AMNYUKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA);
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数／期間出庫数(数量)
if (_ZOGENKBN == '1') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額／期間出庫額(金額)
if (_ZOGENKBN == '1') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分
if (_ZOGENKBN == '1') {
itemDataList['KBUKEBARAI'] = "020";
} else {
itemDataList['KBUKEBARAI'] = "120";
}
//振替区分 (Null)
itemDataList['KBZAIHURI'] = _HURIKAEKBN;
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = "";
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _ZAIKOTANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _ZAIKOTORIHIKISU;
//取引額(金額)
itemDataList['AMTORIHIKI'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//取引差額
itemDataList['AMSAGAKU'] = 0;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)／残高増減額(金額)
if (_ZOGENKBN == '1') {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
} else {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU * -1;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU) * -1;
}
updateFT100(itemDataList);
}
//-------------------------------------------
//［処理］在庫振替削除
//-------------------------------------------
//在庫振替削除処理
// 1 : 品目コード
// 2 : 倉庫コード
// 3 : 振替日（取引日）
// 5 : 取引数量
// 6 : 取引単価
// 7 : 受払区分
// 7 : ソース番号
// 8 : 参照番号
// * : 在庫取引№
function exec_zaihuri_del(_HINMOKU, _SOUKO, _TORIHIKIDATE, _ZAIKOTORIHIKISU, _ZAIKOTANKA, _KBUKEBARAI,
_NRSOURCE, _TXREFNO, _NRZAITORI) {
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数／期間出庫数(数量)
if (_KBUKEBARAI == '020') {
itemDataList['QTNYUKO'] = _ZAIKOTORIHIKISU * -1;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _ZAIKOTORIHIKISU * -1;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額／期間出庫額(金額)
if (_KBUKEBARAI == '020') {
itemDataList['AMNYUKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1;
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1 ;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数／期間出庫数(数量)
if (_KBUKEBARAI == '020') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + (_ZAIKOTORIHIKISU * -1);
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + (_ZAIKOTORIHIKISU * -1);
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額／期間出庫額(金額)
if (_KBUKEBARAI == '020') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + ( (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1);
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + ( (_ZAIKOTORIHIKISU * _ZAIKOTANKA) * -1) ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
insertAkaFT100(_NRZAITORI);
//入出庫履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE FT100 SET " +
" FGVALID = 'F' " +
" WHERE KBUKEBARAI = '" + _KBUKEBARAI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
}
//-------------------------------------------
//［処理］在庫振替の保守
//-------------------------------------------
//在庫振替登録処理
// 1 : 品目コード
// 2 : 倉庫コード
// 2 : 相手倉庫コード
// 3 : 振替日（取引日）
// 4 : 受払区分
// 5 : 取引数量
// 6 : 取引単価
// 7 : ソース番号
// 8 : 参照番号
function exec_zaiidou_ins(_HINMOKU, _SOUKO, _AITE_SOUKO, _TORIHIKIDATE, _KBUKEBARAI,
_ZAIKOTORIHIKISU, _ZAIKOTANKA, _NRSOURCE, _TXREFNO) {
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数／期間出庫数(数量)
if (_KBUKEBARAI == '010') {
itemDataList['QTNYUKO'] = _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額／期間出庫額(金額)
if (_KBUKEBARAI == '010') {
itemDataList['AMNYUKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA);
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数／期間出庫数(数量)
if (_KBUKEBARAI == '010') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _ZAIKOTORIHIKISU;
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _ZAIKOTORIHIKISU;
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額／期間出庫額(金額)
if (_KBUKEBARAI == '010') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + (_ZAIKOTORIHIKISU * _ZAIKOTANKA) ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//受払区分
itemDataList['KBUKEBARAI'] = _KBUKEBARAI;
//振替区分 (Null)
itemDataList['KBZAIHURI'] = null;
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = _AITE_SOUKO;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _ZAIKOTANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _ZAIKOTORIHIKISU;
//取引額(金額)
itemDataList['AMTORIHIKI'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
//取引差額
itemDataList['AMSAGAKU'] = 0;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)／残高増減額(金額)
if (_KBUKEBARAI == '010') {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU);
} else {
itemDataList['QTZOUGEN'] = _ZAIKOTORIHIKISU * -1;
itemDataList['AMZOUGEN'] = (_ZAIKOTANKA * _ZAIKOTORIHIKISU) * -1;
}
updateFT100(itemDataList);
}
//-------------------------------------------
//［処理］棚卸確定更新
//-------------------------------------------
//棚卸確定更新処理
// 1 : 品目コード
// 2 : 倉庫コード
// 4 : 確定日時
// 5 : 実棚数量
// 6 : 基準数量
// 7 : 実棚単価
// 8 : ソース番号
// 9 : 参照番号(棚卸№)
function exec_tanakakutei_ins(_HINMOKU, _SOUKO, _KAKUTEIDATE, _JITSUSU, _KIJUNSU,
_TANKA, _NRSOURCE, _TXREFNO) {
if (_JITSUSU - _KIJUNSU != 0 ) {
if (_JITSUSU == '') { _JITSUSU = 0; }
if (_KIJUNSU == '') { _KIJUNSU = 0; }
if (_TANKA == '') { _TANKA = 0; }
var _KBUKEBARAI = '';
var _QTTORIHIKI = 0;
var _AMTORIHIKI = 0;
var _QTZOUGEN = 0;
var _AMZOUGEN = 0;
if (_JITSUSU - _KIJUNSU > 0 ) {
_KBUKEBARAI = '070';
_QTTORIHIKI = _JITSUSU - _KIJUNSU;
_AMTORIHIKI = (_JITSUSU - _KIJUNSU) * _TANKA;
_QTZOUGEN = _QTTORIHIKI;
_AMZOUGEN = _AMTORIHIKI;
} else {
_KBUKEBARAI = '170';
_QTTORIHIKI = (_JITSUSU - _KIJUNSU) * -1;
_AMTORIHIKI = ((_JITSUSU - _KIJUNSU) * _TANKA) * -1;
_QTZOUGEN = _QTTORIHIKI * -1;
_AMZOUGEN = _AMTORIHIKI * -1;
}
//在庫更新
//--------------------
//現在在庫情報取得
var itemSelectList = selectFT010(_HINMOKU, _SOUKO);
//
var itemDataList = new Array();
if (itemSelectList.length == 0) {
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = 0;
//期間入庫数／期間出庫数(数量)
if (_KBUKEBARAI == '070') {
itemDataList['QTNYUKO'] = _QTTORIHIKI;
itemDataList['QTSYUKKO'] = 0;
} else {
itemDataList['QTNYUKO'] = 0;
itemDataList['QTSYUKKO'] = _QTTORIHIKI;
}
//期首在庫額
itemDataList['AMKISYU'] = 0;
//期間入庫額／期間出庫額(金額)
if (_KBUKEBARAI == '070') {
itemDataList['AMNYUKO'] = _AMTORIHIKI;
itemDataList['AMSYUKKO'] = 0;
} else {
itemDataList['AMNYUKO'] = 0;
itemDataList['AMSYUKKO'] = _AMTORIHIKI;
}
} else {
var lineDataMap = itemSelectList[0];
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//期首在庫数
itemDataList['QTKISYU'] = lineDataMap['QTKISYU'];
//期間入庫数／期間出庫数(数量)
if (_KBUKEBARAI == '070') {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'] + _QTTORIHIKI;
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'];
} else {
itemDataList['QTNYUKO'] = lineDataMap['QTNYUKO'];
itemDataList['QTSYUKKO'] = lineDataMap['QTSYUKKO'] + _QTTORIHIKI;
}
//期首在庫額
itemDataList['AMKISYU'] = lineDataMap['AMKISYU'];
//期間入庫額／期間出庫額(金額)
if (_KBUKEBARAI == '070') {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'] + _AMTORIHIKI ;
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'];
} else {
itemDataList['AMNYUKO'] = lineDataMap['AMNYUKO'];
itemDataList['AMSYUKKO'] = lineDataMap['AMSYUKKO'] + _AMTORIHIKI ;
}
}
updateFT010(itemDataList);
//入出庫履歴作成
//--------------------
var itemDataList = new Array();
//取引日
itemDataList['DTTORIHIKI'] = _KAKUTEIDATE;
//受払区分
itemDataList['KBUKEBARAI'] = _KBUKEBARAI;
//振替区分 (Null)
itemDataList['KBZAIHURI'] = null;
//赤黒 (1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区 (T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = _HINMOKU;
//倉庫Ｃ
itemDataList['CDSOUKO'] = _SOUKO;
//相手先名
itemDataList['TXAITESAKI'] = null;
//取引単価(単価)
itemDataList['PRTORIHIKI'] = _TANKA;
//取引数(数量)
itemDataList['QTTORIHIKI'] = _QTTORIHIKI;
//取引額(金額)
itemDataList['AMTORIHIKI'] = _AMTORIHIKI;
//取引差額
itemDataList['AMSAGAKU'] = 0;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//残高増減数(数量)／残高増減額(金額)
itemDataList['QTZOUGEN'] = _QTZOUGEN;
itemDataList['AMZOUGEN'] = _AMZOUGEN;
updateFT100(itemDataList);
}
}
//-------------------------------------------
//［処理］製造関連処理
//-------------------------------------------
//-------------------------------------------
//製造指示[JT010]
function selectJT010(_NRSEIZO) {
var sql =
"SELECT " +
" NRSEIZO " +
",IDTOKUISAKI " +
",SQSYUKKASAKI " +
",TXTYUMONBANGO " +
",IDHINMOKU " +
",DTNOUKI " +
",QTJYUTYU " +
",QTSYUKKA " +
",QTSEIZO " +
",QTKANSEI " +
",QTHURYO " +
",QTHAIKI " +
",AMGENKA " +
",PRMITSUMORI " +
",PRJYUTYU " +
",TXTEKIYO " +
",CDSOUKOKAN " +
",CDSOUKOZAI " +
",DTCREATE " +
",DTHAKKO " +
",DTSYUKKO " +
",DTKANSEI " +
",DTSYUKKA " +
",DTCANCEL " +
",NRSOURCE " +
",STSEIZO " +
",PRYOTEIGEN " +
",AMHANBAI " +
",AMARARI " +
",PRGENKA " +
",TXSEIZOYOTEI " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM JT010 " +
"WHERE NRSEIZO = '" + _NRSEIZO + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//製造指示材料明細(製造指示番号)[JT040]
function selectJT040_NRSEIZO(_NRSEIZO) {
var sql =
"SELECT " +
" NRSEIZO " +
",SQZAIRYO " +
",IDHINMOKU " +
",QTTOUNYU " +
",SQKOUTEI " +
",PRYOTEI " +
",PRSYUKKO " +
",SQLIST " +
",CDSOUKO " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM JT040 " +
"WHERE NRSEIZO = '" + _NRSEIZO + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//在庫増減履歴
function selectFT100(_NRZAITORI) {
var sql =
"SELECT " +
" NRZAITORI " +
",DTTORIHIKI " +
",KBUKEBARAI " +
",KBZAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",CDSOUKO " +
",TXAITESAKI " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMSAGAKU " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",QTZOUGEN " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT100 " +
"WHERE NRZAITORI = '" + _NRZAITORI + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//在庫増減履歴(受払区分＋取引ソース番号）
function selectFT100_NRSOURCE(_KBUKEBARAI,_NRSOURCE) {
var sql =
"SELECT " +
" NRZAITORI " +
",DTTORIHIKI " +
",KBUKEBARAI " +
",KBZAIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",CDSOUKO " +
",TXAITESAKI " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTORIHIKI " +
",AMSAGAKU " +
",NRSOURCE " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",QTZOUGEN " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
"FROM FT100 " +
"WHERE KBUKEBARAI = '" + _KBUKEBARAI + "'" +
" AND FGVALID = 'T'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//売掛増減履歴(受払区分、効区(T)、取引ソース番号）
function selectET100_NRSOURCE(_KBURITORI, _NRSOURCE) {
var sql =
"SELECT " +
" NRURIKAKE " +
",IDTOKUISAKI " +
",DTTORIHIKI " +
",KBURITORI " +
",KBURIHURI " +
",KBAKADEN " +
",FGVALID " +
",IDHINMOKU " +
",TXHINBAN " +
",TXHINMEI " +
",KBUNIT " +
",PRTORIHIKI " +
",QTTORIHIKI " +
",AMTAX " +
",AMGENKA " +
",NRSOURCE " +
",NRSEIKYU " +
",DTCREATE " +
",TXREFNO " +
",DTNEND " +
",DTMSEQ " +
",AMARARI " +
",AMZOUGEN " +
",CREATED_DATE " +
",CREATED_BY " +
",CREATED_PRG_NM " +
",UPDATED_DATE " +
",UPDATED_BY " +
",UPDATED_PRG_NM " +
",MODIFY_COUNT " +
",AMTORIHIKI " +
"FROM ET100 " +
"WHERE KBURITORI = '" + _KBURITORI + "'" +
" AND FGVALID = 'T'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//請求見出し[ET110]
function insertET110(itemDataList) {
//項目
var itemColNameTbl = [
'NRSEIKYU'
,'IDTOKUISAKI'
,'DTSEIKYU'
,'TXTEKIYO'
,'AMSEIKYU'
,'AMNYUKIN'
,'CREATED_DATE'
,'CREATED_BY'
,'CREATED_PRG_NM'
,'UPDATED_DATE'
,'UPDATED_BY'
,'UPDATED_PRG_NM'
,'MODIFY_COUNT'
];
//var numList = TALON.getNumberingData('XDMF_EF_SEIKYU', 1)
//itemDataList['NRSEIKYU'] = numList[0];
//共通
itemDataList['CREATED_DATE'] = tln_com_nowdate();
itemDataList['CREATED_BY'] = tln_com_user_id();
itemDataList['CREATED_PRG_NM'] = tln_com_func_id();
itemDataList['UPDATED_DATE'] = tln_com_nowdate();
itemDataList['UPDATED_BY'] = tln_com_user_id();
itemDataList['UPDATED_PRG_NM'] = tln_com_func_id();
itemDataList['MODIFY_COUNT'] = 1;
TALON.insertByMap( 'ET110', itemDataList , itemColNameTbl );
}
//-------------------------------------------
//［処理］受領関連
//-------------------------------------------
//受領明細[ET120]
function selectET120(_NRJYURYOU) {
var sql =
"SELECT " +
" NRJYURYOU " +
" ,IDTOKUISAKI " +
" ,DTJYURYOU " +
" ,KBKINSYU " +
" ,AMJYURYOU " +
" ,AMTESURYOU " +
" ,NRSOURCE " +
" ,CREATED_DATE " +
" ,CREATED_BY " +
" ,CREATED_PRG_NM " +
" ,UPDATED_DATE " +
" ,UPDATED_BY " +
" ,UPDATED_PRG_NM " +
" ,MODIFY_COUNT " +
"FROM ET120 " +
"WHERE NRJYURYOU = '" + _NRJYURYOU + "'"
;
var itemSelectList = TALON.select(sql);
return itemSelectList;
}
//-------------------------------------------
//［処理］受領処理
//-------------------------------------------
// 1 : 得意先ID
// 2 : 受領日
// 3 : 金種区分
// 4 : 金額（受領金額／残高控除分手数料）
// 5 : 処理区分（1:金額処理／2:手数料処理）
// 5 : 取引ソース№
// 6 : 受領№
function exec_juryo_ins(_TORIHIKISAKI, _TORIHIKIDATE, _KBKINSYU, _KINGAKU, _SYORIKBN,
_NRSOURCE, _TXREFNO) {
//売掛履歴作成
//--------------------
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = _TORIHIKISAKI;
//取引日
itemDataList['DTTORIHIKI'] = _TORIHIKIDATE;
//取引区分
if (_SYORIKBN == '1') {
if (_KBKINSYU == '1') {
itemDataList['KBURITORI'] = "90";
} else if (_KBKINSYU == '2') {
itemDataList['KBURITORI'] = "91";
} else {
itemDataList['KBURITORI'] = "XX";
}
} else {
itemDataList['KBURITORI'] = "92";
}
//振替区分(Null)
itemDataList['KBURIHURI'] = "";
//赤黒(1:黒伝)
itemDataList['KBAKADEN'] = "1";
//効区(T:有効)
itemDataList['FGVALID'] = "T";
//品目ID
itemDataList['IDHINMOKU'] = "";
//単位区分
itemDataList['KBUNIT'] = "CNT";
//取引単価
itemDataList['PRTORIHIKI'] = _KINGAKU;
//取引数
itemDataList['QTTORIHIKI'] = 1;
//消費税額
itemDataList['AMTAX'] = 0;
//販売原価
itemDataList['AMGENKA'] = 0;
//取引ソース№
itemDataList['NRSOURCE'] = _NRSOURCE;
//請求№(Null)
itemDataList['NRSEIKYU'] = "";
//登録日時
itemDataList['DTCREATE'] = tln_com_nowdate();
//参照番号
itemDataList['TXREFNO'] = _TXREFNO;
//年度(Null)
itemDataList['DTNEND'] = '';
//月序(Null)
itemDataList['DTMSEQ'] = '';
//粗利額
itemDataList['AMARARI'] = 0;
//残高増減額
itemDataList['AMZOUGEN'] = _KINGAKU;
//税抜取引額
itemDataList['AMTORIHIKI'] = _KINGAKU;
updateET100(itemDataList);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'];
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'] + _KINGAKU;
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
//-------------------------------------------
// 1 : 得意先ID
// 2 : 受領日
// 3 : 金種区分
// 4 : 金額（受領金額／残高控除分手数料）
// 5 : 処理区分（1:金額処理／2:手数料処理）
// 5 : 取引ソース№
// 6 : 受領№
// * : 売掛取引№
// * : 取引区分
function exec_juryo_del(_TORIHIKISAKI, _TORIHIKIDATE, _KBKINSYU, _KINGAKU, _SYORIKBN,
_NRSOURCE, _TXREFNO, _NRURIKAKE, _KBURITORI) {
//売掛履歴作成
//--------------------
insertAkaET100(_NRURIKAKE);
//売掛履歴更新
//--------------------
//赤伝発行と共に元黒の効区をF:無効に更新（対象受払区分＋取引ソース内で効区は全てFに）
TALON.update( " UPDATE ET100 SET " +
" FGVALID = 'F' " +
" WHERE KBURITORI = '" + _KBURITORI + "'" +
" AND NRSOURCE = '" + _NRSOURCE + "'"
);
//得意先情報更新
//--------------------
var itemDataList = new Array();
//得意先情報取得
var itemSelectList = selectET010(_TORIHIKISAKI);
var lineDataMap = itemSelectList[0];
var itemDataList = new Array();
//得意先ID
itemDataList['IDTOKUISAKI'] = lineDataMap['IDTOKUISAKI'];
//客先担当部署
itemDataList['TXTANTOUBUSYO'] = lineDataMap['TXTANTOUBUSYO'];
//客先担当名
itemDataList['TXTANTOUSYA'] = lineDataMap['TXTANTOUSYA'];
//客先担当職位
itemDataList['TXTANTOUSYASYOKUI'] = lineDataMap['TXTANTOUSYASYOKUI'];
//客先担当メアド
itemDataList['TXTANTOUSYAEMAIL'] = lineDataMap['TXTANTOUSYAEMAIL'];
//客先担当TEL
itemDataList['TXTANTOUSYADENWA'] = lineDataMap['TXTANTOUSYADENWA'];
//請求方式区分
itemDataList['KBSEIKYUHOUSHIKI'] = lineDataMap['KBSEIKYUHOUSHIKI'];
//締め日
itemDataList['TXSIMEBI'] = lineDataMap['TXSIMEBI'];
//標準入金方法区分
itemDataList['KBNYUKINHOUHOU'] = lineDataMap['KBNYUKINHOUHOU'];
//売上入金サイト
itemDataList['VLNYUKINSAITO'] = lineDataMap['VLNYUKINSAITO'];
//与信限度額
itemDataList['AMYOSHIN'] = lineDataMap['AMYOSHIN'];
//担当営業№
itemDataList['NRTANTOUJYUGYOIN'] = lineDataMap['NRTANTOUJYUGYOIN'];
//摘要
itemDataList['TXTEKIYO'] = lineDataMap['TXTEKIYO'];
//期首売掛残高
itemDataList['AMKISYUURIKAKE'] = lineDataMap['AMKISYUURIKAKE'];
//期間売上額(税込金額)
itemDataList['AMURIAGE'] = lineDataMap['AMURIAGE'];
//期間受領額
itemDataList['AMJYURYO'] = lineDataMap['AMJYURYO'] + (_KINGAKU * -1);
//現売掛残高
itemDataList['AMGENURIKAKE'] = lineDataMap['AMGENURIKAKE'];
updateET010(itemDataList);
}
```