# XDMF_HF021_0 / 入荷指示エントリー _言語: ja / データ版数 (設定の最終更新): 2024-07-11 11:38:22_ ## 要約 | 項目 | 値 | |------|------| | FUNC\_ID | \`XDMF\_HF021\_0\` | | 機能名 | 入荷指示エントリー | | 機能タイプ \(APP\_KBN\) | STD / 固定検索条件 | | BG\_L | 4 | | BG\_M | 7 | | ブロック数 | 2 | | 項目数 | 32 | | 読み取りテーブル | 4 | | 書き込みテーブル | 2 | | DB 接続先 | 1 | ### 機能概要 発注エントリーで作成した発注に対して入荷指示(倉入れ指示)をかけるための画面です。 仕入先ID(必須)を指定して検索を実行します。入荷見出しの入荷日・入荷倉庫Cを設定します。 発注明細の選択には、同一仕入先で発注エントリー後まだ入荷指示のかかっていない明細が一覧表示されます。 倉入れ対象となる明細の対象チェックをONにして「確定」ボタンを実行します。 ※入荷指示エントリーを実行すると、倉入れ指示書が発行できる状態になります。 倉入れ指示書は「入荷実績エントリー」より発行して下さい。 ※入荷指示エントリーの段階では、買掛金の計上や在庫の入出庫は発生しません。 ※入荷指示の取り消しは、入荷実績エントリーから「入荷指示取消」ボタンで入荷取消エントリーを起動し行います。 ## 機能設定 ### 機能説明 | 項目 | 値 | |------|----| | 機能ID | XDMF\_HF021\_0 | | 機能名 | 入荷指示エントリー | | 機能タイプ | 固定検索条件 \(STD\) | | ADMIN\_ID | | | 業務分類 大 | XTEA生産管理 \(4\) | | 業務分類 中 | 発注入荷管理 \(7\) | | 業務分類 小 | | | 作成 | 2024\-07\-11 11:38:09.0 demo | | 最終更新 | 2024\-07\-11 11:38:09.0 demo | | ヘルプリンク名 \(HELP\_LINK\_NM\) | | | ヘルプURL \(HELP\_URL\) | | #### 機能概要 発注エントリーで作成した発注に対して入荷指示(倉入れ指示)をかけるための画面です。 仕入先ID(必須)を指定して検索を実行します。入荷見出しの入荷日・入荷倉庫Cを設定します。 発注明細の選択には、同一仕入先で発注エントリー後まだ入荷指示のかかっていない明細が一覧表示されます。 倉入れ対象となる明細の対象チェックをONにして「確定」ボタンを実行します。 ※入荷指示エントリーを実行すると、倉入れ指示書が発行できる状態になります。 倉入れ指示書は「入荷実績エントリー」より発行して下さい。 ※入荷指示エントリーの段階では、買掛金の計上や在庫の入出庫は発生しません。 ※入荷指示の取り消しは、入荷実績エントリーから「入荷指示取消」ボタンで入荷取消エントリーを起動し行います。 ### アプリケーション設定 #### 機能レベル設定一覧 _TLN_M_GENERAL_APP (FUNC_SEQ=-1) に登録されている全ての設定値。非表示フラグや個別セクションで重複して表示される設定も含む。_ | ボタン | 状態 | FUNC\_KBN | |------|------|------| | 機能タイプ | 固定検索条件 | APP\_KBN=STD | | 機能タイプ \> 入力用のキー項目をブロック内に表示する | 表示する \[1\] | KEY\_COL\_BLOCK | | 確定後再表示オプション \> 初期状態 | 初期化する \[1\] | EXE\_DISP\_INIT\_FLG | | 起動Window状態 | 上書き＋親再検索 \[OVER\_WRITE\_SEARCH\] | OPEN\_WINDOW\_MODE | #### 標準ボタン非表示設定 | ボタン | FUNC\_KBN | 状態 | |------|------|------| | PDF出力 | PDF\_BUTTON\_HDN\_FLG | 表示 | | Excel出力 | EXCEL\_BUTTON\_HDN\_FLG | 表示 | | Excel更新 | EXCELUPDATE\_BUTTON\_HDN\_FLG | 表示 | | クリア | CLEAR\_BUTTON\_HDN\_FLG | 表示 | | 検索 | SEARCH\_BUTTON\_HDN\_FLG | 表示 | | 戻る | BACK\_BUTTON\_HDN\_FLG | 表示 | | 確定 | EXECUTE\_BTN\_HDN\_FLG | 表示 | | 参照 | VIEW\_BUTTON\_HDN\_FLG | 表示 | | 画面設定 | COL\_BUTTON\_HDN\_FLG | 表示 | | 検索条件保存 | COND\_SAVE\_HDN\_FLG | 表示 | | 検索条件タイトル | IS\_CONDITION\_TITLE\_OFF | 表示 | | ブロック名 | BLOCK\_NAME\_HDN\_FLG | 表示 | #### 結合項目 _結合項目 (JOIN): 同じグループに属する他ブロックの検索項目は 1 つの検索条件として集約される。_ | 並び | 項目数 | 結合される項目 | |------|------|------| | 1 | 2 | BLOCK2: IDSIIRESAKI \(IDSIIRESAKI\) ↔ BLOCK1: 仕入先ID \(IDSIIRESAKI\) | ### ユーザグループ | FUNC\_ATH\_ID | グループ名 | |------|------| | system | システム管理 | ## 検索条件 (集約) | 表示名 | COL\_NAME | データ型 | 桁 | 表示形式 | 改行 | 集約数 | 集約元 | |------|------|------|------|------|------|------|------| | 仕入先ID | IDSIIRESAKI | VARCHAR2 | 30 | TEXT:半角、全角混在\(Byte\) | | 2 | BLOCK2: IDSIIRESAKI / BLOCK1: IDSIIRESAKI | | 発注№ | NRHATTYU | VARCHAR2 | 30 | TEXT:半角、全角混在\(Byte\) | | 1 | BLOCK2: NRHATTYU | | 品番 | TXHINBAN | VARCHAR2 | 100 | TEXT:半角、全角混在\(Byte\) | | 1 | BLOCK2: TXHINBAN | | 品名 | TXHINMEI | VARCHAR2 | 100 | TEXT:半角、全角混在\(Byte\) | | 1 | BLOCK2: TXHINMEI | ## ブロック設定 ### ブロック構成 | \# | TYPE | TITLE | |------|------|------| | BLOCK 1 | CARD | 入荷見出し | | BLOCK 2 | LIST | 発注明細の選択 | ### BLOCK 1: 入荷見出し [CARD] #### ブロックレベル更新先テーブル | 設定 | 内容 | |------|------| | SELECT式 \> 更新テーブル | HT020 | #### SELECT 式 ```sql SELECT AT030.IDTORIHIKISAKI as NRNYUKA ,AT030.IDTORIHIKISAKI as IDSIIRESAKI ,AT030.CDTORIHIKISAKI as CDTORIHIKISAKI ,AT030.TXKANJI as TXKANJI ,TLN_DATE_TO_CHAR('YMD',TLN_SYSDATE()) as DTNYUKA ,TLN_DATE_TO_CHAR('YMD',TLN_SYSDATE()) as DTKENSYU ,null as CDSOUKO ,null as TXSOUKO ,'10' as STNYUKA ,TLN_DATE_TO_CHAR('YMD',TLN_SYSDATE()) as CREATED_DATE ,/**%TLN_LOGIN_USER%**/null as CREATED_BY ,'XDMF_HF021_0' as CREATED_PRG_NM ,TLN_DATE_TO_CHAR('YMD',TLN_SYSDATE()) as UPDATED_DATE ,/**%TLN_LOGIN_USER%**/null as UPDATED_BY ,'XDMF_HF021_0' as UPDATED_PRG_NM ,0 as MODIFY_COUNT FROM AT030 INNER JOIN (SELECT HT010.IDSIIRESAKI FROM HT010 INNER JOIN HT011 ON HT011.NRHATTYU = HT010.NRHATTYU WHERE HT011.NRNYUKA IS NULL GROUP BY HT010.IDSIIRESAKI ) HT010 ON HT010.IDSIIRESAKI = AT030.IDTORIHIKISAKI ``` #### 項目情報 | 並び順 | 物理項目名 | 表示名 | キー | 更新 | 検索 | 必須 | 改行 | グループ名 | 表示形式 | データ型 | 桁 | 表示桁 | 行数 | コンポーネント | 識別コード | |------|------|------|------|------|------|------|------|------|------|------|------|------|------|------|------| | 1 | NRNYUKA | | ○ | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | | | | | | 2 | IDSIIRESAKI | 仕入先ID | | ○ | ○ | ○ | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 12 | | | | | 3 | CDTORIHIKISAKI | 取引先Ｃ | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 12 | | | | | 4 | TXKANJI | 取引先名 | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 100 | | | | | | 5 | DTNYUKA | 入荷日 | | ○ | | ○ | ○ | | DATE:YYYY/MM/DD | VARCHAR2 | 10 | | | | | | 6 | DTKENSYU | | | | | | | | DATE:YYYY/MM/DD | VARCHAR2 | 10 | | | | | | 7 | CDSOUKO | 入荷倉庫Ｃ | | ○ | | ○ | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 10 | | | | | 8 | TXSOUKO | 入荷倉庫名 | | | | ○ | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 25 | | | | | 9 | STNYUKA | | | ○ | | ○ | | | TEXT:半角、全角混在\(Byte\) | CHAR | 2 | | | リストボックス \(1\) | | | 10 | CREATED\_DATE | | | ○ | | | | | DATE:YYYY/MM/DD | VARCHAR2 | 10 | | | | | | 11 | CREATED\_BY | | | ○ | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 50 | | | | | | 12 | CREATED\_PRG\_NM | | | ○ | | | | | TEXT:半角、全角混在\(Byte\) | CHAR | 50 | | | | | | 13 | UPDATED\_DATE | | | ○ | | | | | DATE:YYYY/MM/DD | VARCHAR2 | 10 | | | | | | 14 | UPDATED\_BY | | | ○ | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 50 | | | | | | 15 | UPDATED\_PRG\_NM | | | ○ | | | | | TEXT:半角、全角混在\(Byte\) | CHAR | 50 | | | | | | 16 | MODIFY\_COUNT | | | ○ | | | | | INT:整数　　　　　　　　　　 | NUMBER | 22 | | | | | ##### 項目別 詳細設定 (ITEM_OPTN) ###### 項目: NRNYUKA | 設定種別 | 並び | 内容 | |------|------|------| | 採番名 | 1 | XDMF\_HF\_NYUKA | ###### 項目: IDSIIRESAKI (仕入先ID) | 設定種別 | 並び | 内容 | |------|------|------| | 入力許可パターン | 1 | パターン=1 = 2 | | マスタチェック | 1 | ON | | 検索必須 | 1 | ON | | 検索子画面 \> 機能ID | 1 | 機能ID=XDMF\_DF200\_0 \(仕入先マスターの検索子画面\) | | 検索子画面 | 1 | 項目名=ON \[INIT\_SEARCH\] | ###### 項目: CDSOUKO (入荷倉庫Ｃ) | 設定種別 | 並び | 内容 | |------|------|------| | LOOKUP | 1 | 子画面項目=CDSOUKO \(取引倉庫Ｃ\) / 項目名=CDSOUKO \(入荷倉庫Ｃ\) | | LOOKUP | 2 | 子画面項目=TXSOUKO \(倉庫名\) / 戻り値=TXSOUKO \(入荷予定倉庫\) | | LOOKUP \> 機能ID | 1 | 機能ID=XDMF\_AF130\_0 \(倉庫マスタの検索子画面\) | | マスタチェック | 1 | ON | | 検索子画面 \> 機能ID | 1 | 機能ID=XDMF\_AF130\_0 \(倉庫マスタの検索子画面\) | | 検索子画面 | 1 | 子画面項目=CDSOUKO \(取引倉庫Ｃ\) / 項目名=CDSOUKO \(入荷倉庫Ｃ\) | | 検索子画面 | 2 | 子画面項目=CDSOUKO \(取引倉庫Ｃ\) / 戻り値=CDSOUKO \(入荷倉庫Ｃ\) | | 検索子画面 | 3 | 子画面項目=TXSOUKO \(倉庫名\) / 戻り値=TXSOUKO \(入荷予定倉庫\) | | 検索子画面 | 4 | 項目名=ON \[INIT\_SEARCH\] | ###### 項目: STNYUKA | 設定種別 | 並び | 内容 | |------|------|------| | DB設定式 \> 条件式 | 1 | 値=10 | #### 詳細設定 ##### 基本設定 (全ブロック共通) (1件) | 設定種別 | 値 | FUNC\_KBN | |------|------|------| | 表示高さ | 150 | SPACE\_HEIGHT | ##### その他 (LIST/CARD/帳票/権限など) (2件) | 設定種別 | 値 | FUNC\_KBN | |------|------|------| | 確定時オプション \> 全件を対象にする | ON \[1\] | ALL\_REG\_FLG | | 処理権限 \> 登録 | ON \[1\] | INSERT\_FLG | ### BLOCK 2: 発注明細の選択 [LIST] #### ブロックレベル更新先テーブル | 設定 | 内容 | |------|------| | SELECT式 \> 更新テーブル | HT011 | #### SELECT 式 ```sql SELECT HT011.FGNYUKA ,HT010.IDSIIRESAKI as IDSIIRESAKI ,AT030.TXKANJI as SIRESAKI_NM ,HT011.DTNOUKI as DTNOUKI ,HT011.QTHATTYU as QTHATTYU ,BT010.KBUNITPUR as KBUNITPUR ,HT011.NRHATTYU as NRHATTYU ,HT011.SQHATTYU as SQHATTYU ,AT040.TXSOUKO as TXSOUKO ,BT010.TXHINBAN as TXHINBAN ,BT010.TXHINMEI as TXHINMEI ,HT011.NRNYUKA ,HT011.QTKANZAN ,HT011.MODIFY_COUNT ,BT010.KBUNIT as KBUNIT ,BT010.VLKANZAN as VLKANZAN FROM HT011 LEFT JOIN BT010 ON HT011.IDHINMOKU = BT010.IDHINMOKU LEFT JOIN HT010 ON HT011.NRHATTYU = HT010.NRHATTYU LEFT JOIN AT040 ON HT010.CDSOUKO = AT040.CDSOUKO LEFT JOIN AT030 ON HT010.IDSIIRESAKI = AT030.IDTORIHIKISAKI WHERE HT011.NRNYUKA IS NULL ``` #### 項目情報 | 並び順 | 物理項目名 | 表示名 | キー | 更新 | 検索 | 必須 | 改行 | グループ名 | 表示形式 | データ型 | 桁 | 表示桁 | 行数 | コンポーネント | 識別コード | |------|------|------|------|------|------|------|------|------|------|------|------|------|------|------|------| | 1 | FGNYUKA | 対象 | | ○ | | ○ | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 10 | | | チェックボックス \(5\) | | | 2 | IDSIIRESAKI | | | | ○ | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 12 | | | | | 3 | SIRESAKI\_NM | | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 100 | | | | | | 4 | DTNOUKI | 希望納期 | | | | | | | DATE:YYYY/MM/DD | DATE | 10 | | | | | | 5 | QTHATTYU | 発注数 | | | | | | | INT:整数　　　　　　　　　　 | NUMBER | 11 | 8 | | | | | 6 | KBUNITPUR | 単位 | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 3 | | | リストボックス \(1\) | KBUNIT | | 7 | NRHATTYU | 発注№ | ○ | | ○ | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 14 | | | | | 8 | SQHATTYU | 発注行番 | ○ | | | | | | INT:整数　　　　　　　　　　 | NUMBER | 5 | | | | | | 9 | TXSOUKO | 入荷予定倉庫 | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 100 | | | | | | 10 | TXHINBAN | 品番 | | | ○ | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 100 | | | | | | 11 | TXHINMEI | 品名 | | | ○ | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 100 | | | | | | 12 | NRNYUKA | | | ○ | | ○ | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | | | | | | 13 | QTKANZAN | | | | | | | | INT:整数　　　　　　　　　　 | NUMBER | 11 | | | | | | 14 | MODIFY\_COUNT | | | | | | | | INT:整数　　　　　　　　　　 | NUMBER | 10 | | | | | | 15 | KBUNIT | | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 3 | | | リストボックス \(1\) | KBUNIT | | 16 | VLKANZAN | | | | | | | | INT:整数　　　　　　　　　　 | NUMBER | 11 | | | | | ##### 項目別 詳細設定 (ITEM_OPTN) ###### 項目: FGNYUKA (対象) | 設定種別 | 並び | 内容 | |------|------|------| | 表示位置 | 1 | 中央 \[C\] | ###### 項目: IDSIIRESAKI | 設定種別 | 並び | 内容 | |------|------|------| | 検索必須 | 1 | ON | | 検索子画面 \> 機能ID | 1 | 機能ID=XDMF\_DF200\_0 \(仕入先マスターの検索子画面\) | | 検索子画面 | 1 | 項目名=ON \[INIT\_SEARCH\] | ###### 項目: NRHATTYU (発注№) | 設定種別 | 並び | 内容 | |------|------|------| | 検索子画面 \> 機能ID | 1 | 機能ID=XDMF\_HF100\_0 \(発注№の検索子画面\) | | 検索子画面 | 1 | 項目名=ON \[INIT\_SEARCH\] | ###### 項目: TXHINBAN (品番) | 設定種別 | 並び | 内容 | |------|------|------| | 固定条件式 | 1 | PREFIX | | 検索子画面 \> 機能ID | 1 | 機能ID=XDMF\_BF100\_0 \(品目マスターの検索子画面\) | | 検索子画面 | 1 | 項目名=ON \[INIT\_SEARCH\] | ###### 項目: TXHINMEI (品名) | 設定種別 | 並び | 内容 | |------|------|------| | 固定条件式 | 1 | PREFIX | ###### 項目: NRNYUKA | 設定種別 | 並び | 内容 | |------|------|------| | DB設定式 \> 条件式 | 1 | 条件式=マクロ \[MACRO\] / 値=%1\_NRNYUKA% / 登録条件式=1 = 1 | #### 詳細設定 | 設定種別 | 値 | FUNC\_KBN | |------|------|------| | ボタンの非表示 \> Excel更新 | ON \[1\] | EXCELUPDATE\_BUTTON\_HDN\_FLG | | 確定時オプション \> 排他制御 | ON \[1\] | EXCLUSIVE\_CONTROL\_FLG | | 画面最大行数 | | MAX\_LINE\_COUNT | | 標準Excel出力最大行数 | | MAX\_LINE\_COUNT\_EXCEL | | 処理権限 \> 更新 | ON \[1\] | UPDATE\_FLG | | ボタンの非表示 \> 参照 | ON \[1\] | VIEW\_BUTTON\_HDN\_FLG | ## 参照情報 ### メニュー位置 | FUNC\_ATH\_ID | グループ名 | 表示名 | AUTH\_KBN | PRINT\_SORT | APP\_URL | HELP\_URL | |------|------|------|------|------|------|------| | XTEA//XTEA\_ORDER | | 入荷指示エントリー | 1 | 5120 | TALON/APPLICATION/GENERALFREE/GENERALFREE.xhtml?PARAM\_FUNC\_ID=XDMF\_HF021\_0 | | ### 依存関係 #### 参照先機能 | FUNC\_ID | FUNC\_NM | APP\_KBN | |------|------|------| | XDMF\_AF130\_0 | 倉庫マスタの検索子画面 | SUB | | XDMF\_BF100\_0 | 品目マスターの検索子画面 | SUB | | XDMF\_DF200\_0 | 仕入先マスターの検索子画面 | SUB | | XDMF\_HF100\_0 | 発注№の検索子画面 | SUB | #### 参照先テーブル (書き込み) _INSERT/UPDATE/DELETE/MERGE/UPDATE_TABLE 設定_ | テーブル名 | 出典 | |------|------| | HT011 | UPDATE\_TABLE \(FUNC\_SEQ=0\) / UPDATE\_TABLE \(FUNC\_SEQ=0\) | | HT020 | UPDATE\_TABLE \(FUNC\_SEQ=1\) / UPDATE\_TABLE \(FUNC\_SEQ=1\) | #### 参照先テーブル (読み取りのみ) _FROM / JOIN 句から抽出_ | テーブル名 | 出典 | |------|------| | AT030 | BLOCK1.BODY\_SQL / BLOCK2.BODY\_SQL | | AT040 | BLOCK2.BODY\_SQL | | BT010 | BLOCK2.BODY\_SQL | | HT010 | BLOCK1.BODY\_SQL / BLOCK2.BODY\_SQL | > **✎ テーブル参照解析の注意事項** > > - テーブル参照は `UPDATE_TABLE` 設定 + ブロック SELECT 式 (BODY_SQL/TITLE_SQL) + JavaScript コード (CHR_TEXT) + 呼び出すストアドプロシージャ本体 (Oracle / PostgreSQL / MySQL / SQL Server) を `FROM` / `JOIN` / `INSERT INTO` / `UPDATE ... SET` / `DELETE FROM` / `MERGE INTO` / `REPLACE INTO` / `MERGE ... USING` の正規表現で抽出した結果です。 動的SQLは文字列リテラルが DML 文で始まる場合のみ抽出します。 > - **書き込み** = INSERT/UPDATE/DELETE/MERGE が検出されたテーブル / **読み取り** = FROM/JOIN のみのテーブル > - **⚠ 抜け・漏れの可能性**: コード内で動的に組み立てられた SQL、変数連結、条件分岐内の SQL は検出できない場合があります。 > - **⚠ 対象外**: ストアドプロシージャ本体は Oracle / PostgreSQL / MySQL / SQL Server に対応 (DB2 等は今後)。 プロシージャから更に呼ぶ別プロシージャ、 BODY_SQL/JS 直書きの CALL/EXEC、 外部 API 経由、 トリガ連動は含まれません。 動的SQLの変数組み立てテーブル名も対象外 (リテラル完結分は抽出)。 > - **✎ 補完 (備考タグ)**: 解析で捕捉できない依存は 機能説明タブの備考に `[R:テーブル名]` (読み) / `[W:テーブル名]` (書き) / `[WR:テーブル名]` (読み書き) と記入すると依存として取り込まれます (1タグ1テーブル、 文章中に埋め込み可)。 `@番号` で複数DB接続の接続先を明示できます (例 `[W:LOG_TBL@2]`。 省略時は機能の DB 接続先)。 #### 被参照 (呼出元機能) | FUNC\_ID | FUNC\_NM | APP\_KBN | 参照箇所 | |------|------|------|------| | XDMF\_HF010\_0 | 発注データの一覧・保守 | STD | BUTTON\_NEXT \(ALL\) | #### 参照先共通ライブラリ _TLN_M_HANYO_CODE_MAIN.SIKIBETU_CODE in (TLN_GENERAL_JAVASCRIPT_ENGINE / TLN_GENERAL_JAVASCRIPT / TLN_GENERAL_CSS) からマップ。「全て」モード時は該当種別の全ライブラリ、「個別」モード時は CHR1 で指定されたものだけ。_ | 種別 | LIBRARY\_CODE | 名称 | 使用スコープ | |------|------|------|------| | サーバ JS | XDMF\_JS001\_0 | \[共通\]共通 | サーバJS:確定処理後\[個別\] | | サーバ JS | XDMF\_JS002\_0 | \[共通\]仕入関連 | サーバJS:確定処理後\[個別\] | | サーバ JS | XDMF\_JS003\_0 | \[共通\]製造関連 | サーバJS:確定処理後\[個別\] | ### マスタ参照 #### 汎用CD (TLN_M_HANYO_CODE_MAIN) | 識別コード | KEY | 名称 | DSP1 | DSP2 | DSP3 | DSP\_NO1 | SORT | |------|------|------|------|------|------|------|------| | KBUNIT | CNT | 単位区分 | 件 | | | 0 | 20 | | KBUNIT | ECH | 単位区分 | 個 | | | 0 | 10 | | KBUNIT | G | 単位区分 | ｇ | | | 0 | 60 | | KBUNIT | KG | 単位区分 | kg | | | 0 | 50 | | KBUNIT | MTR | 単位区分 | ｍ | | | 0 | 30 | | KBUNIT | ROL | 単位区分 | 巻 | | | 0 | 40 | #### 採番 (TLN_M_SEQ_PARAMETER) | 識別コード | SEQ\_NO | KIND | VALUE | |------|------|------|------| | XDMF\_HF\_NYUKA | 0 | 1 | NY | | XDMF\_HF\_NYUKA | 1 | 2 | %tY%tm | | XDMF\_HF\_NYUKA | 2 | 3 | 5 | ## コードブック ### JavaScript / 各種コード #### サーバJS:確定処理後 (機能レベル, 並び=0) ```javascript //入力値取得 var itemBlockListHed = TALON.getBlockData_List(1); var lineDataMap = itemBlockListHed[0]; var _NRNYUKA = lineDataMap['NRNYUKA']; //発注明細を入荷№で検索して、1件もなければエラーとする var sql = "SELECT " + " NRHATTYU " + ",SQHATTYU " + "FROM HT011 " + "WHERE NRNYUKA = '" + _NRNYUKA + "'" ; var itemSelectList = TALON.select(sql); //存在しない場合、未選択なのでエラー if (itemSelectList.length == 0) { TALON.addErrorMsg( "発注明細が選択されていません。" ); TALON.setIsSuccess(false); } ``` ### 共通ライブラリ #### サーバ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); } ```