# XDMF_HF023_0 / 入荷実績エントリー _言語: ja / データ版数 (設定の最終更新): 2024-07-11 11:38:22_ ## 要約 | 項目 | 値 | |------|------| | FUNC\_ID | \`XDMF\_HF023\_0\` | | 機能名 | 入荷実績エントリー | | 機能タイプ \(APP\_KBN\) | STD / 固定検索条件 | | BG\_L | 4 | | BG\_M | 7 | | ブロック数 | 2 | | 項目数 | 26 | | 読み取りテーブル | 6 | | 書き込みテーブル | 2 | | DB 接続先 | 1 | ### 機能概要 入荷指示されたデータに対して検収を行う画面となります。 入力項目は入荷倉庫・検収日・発注単価・検収数です。複数明細ある場合、一部の明細のみを検収するという処理は想定されていません。検収から除外したい明細は、明細行の「入荷指示取消」ボタンで入荷取消エントリーを実行します。その後、当画面で再度検索を実行し入力を行って下さい。 ※検収数を入力すると換算係数を利用して在庫換算数が計算されます。ヘッダー部の入庫倉庫と明細部の品目IDで倉庫在庫が作成されます。データが既に存在する場合は、在庫数が加算されます。 ※ヘッダー部の検収日で買掛金の計上が行われますので日付の指定にご注意下さい。 ※明細の「取引履歴」ボタンで発注明細別取引実績の検討が起動します。発注明細・仕入実績・入庫実績が参照できる画面になっています。 ※分納について  検収数が発注数に満たなかった場合でも、差分について自動で発注を起こすような仕掛けはありません。検収数 ＜ 発注数の場合でも入荷状況は「検収済み」となります。発注データの一覧・保守にある発注状況は「一部入荷」のステータスとなります。検収済みになったデータを再検索し、値を変更して確定すると、前回分のデータに対しては赤伝を作成します。結果として①最初の黒伝 ②最初の黒伝に対する赤伝 ③2回目の黒伝 の3レコードが存在することになります。 ※過去データの修正について  検収日にシステム変数の「入力認可過去月度」以前になるような日付は登録できないようになっていますので、データ修正が出来るのは入力認可過去月度 <= 検収日のデータとなります。 ※検収済みのデータを取り消す機能はありません。特殊仕入データの保守で仕入返品を行って下さい。 ## 機能設定 ### 機能説明 | 項目 | 値 | |------|----| | 機能ID | XDMF\_HF023\_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で倉庫在庫が作成されます。データが既に存在する場合は、在庫数が加算されます。 ※ヘッダー部の検収日で買掛金の計上が行われますので日付の指定にご注意下さい。 ※明細の「取引履歴」ボタンで発注明細別取引実績の検討が起動します。発注明細・仕入実績・入庫実績が参照できる画面になっています。 ※分納について  検収数が発注数に満たなかった場合でも、差分について自動で発注を起こすような仕掛けはありません。検収数 ＜ 発注数の場合でも入荷状況は「検収済み」となります。発注データの一覧・保守にある発注状況は「一部入荷」のステータスとなります。検収済みになったデータを再検索し、値を変更して確定すると、前回分のデータに対しては赤伝を作成します。結果として①最初の黒伝 ②最初の黒伝に対する赤伝 ③2回目の黒伝 の3レコードが存在することになります。 ※過去データの修正について  検収日にシステム変数の「入力認可過去月度」以前になるような日付は登録できないようになっていますので、データ修正が出来るのは入力認可過去月度 <= 検収日のデータとなります。 ※検収済みのデータを取り消す機能はありません。特殊仕入データの保守で仕入返品を行って下さい。 ### アプリケーション設定 #### 機能レベル設定一覧 _TLN_M_GENERAL_APP (FUNC_SEQ=-1) に登録されている全ての設定値。非表示フラグや個別セクションで重複して表示される設定も含む。_ | ボタン | 状態 | FUNC\_KBN | |------|------|------| | 機能タイプ | 固定検索条件 | APP\_KBN=STD | | 検索条件保存 \> 非表示 | ON \[1\] | COND\_SAVE\_HDN\_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 | BLOCK1: 入荷№ \(NRNYUKA\) ↔ BLOCK2: 入荷№ \(NRNYUKA\) | ### 帳票出力 #### ボタン: 倉入指示書 · EXCEL帳票 | 設定 | 内容 | | --- | --- | | 帳票ボタン名 | 倉入指示書 | | フォームファイル名 | XTEA_SIJISYO.xlsx | | 出力形式 | EXCEL | | 出力ファイル名 | 倉入指示書_%1_IDSIIRESAKI%_%SYSDATE% | | 出力タイミング | ボタンのみ | ### ユーザグループ | FUNC\_ATH\_ID | グループ名 | |------|------| | system | システム管理 | ## 検索条件 (集約) | 表示名 | COL\_NAME | データ型 | 桁 | 表示形式 | 改行 | 集約数 | 集約元 | |------|------|------|------|------|------|------|------| | 入荷№ | NRNYUKA | VARCHAR2 | 30 | TEXT:半角、全角混在\(Byte\) | | 2 | BLOCK1: NRNYUKA / BLOCK2: NRNYUKA | ## ブロック設定 ### ブロック構成 | \# | TYPE | TITLE | |------|------|------| | BLOCK 1 | CARD | 入荷見出し | | BLOCK 2 | LIST | 入荷明細 | ### BLOCK 1: 入荷見出し [CARD] #### ブロックレベル更新先テーブル | 設定 | 内容 | |------|------| | SELECT式 \> 更新テーブル | HT020 | #### SELECT 式 ```sql SELECT HT020.NRNYUKA as NRNYUKA ,HT020.DTNYUKA as DTNYUKA ,HT020.STNYUKA as STNYUKA ,HT020.IDSIIRESAKI as IDSIIRESAKI ,AT030.TXKANJI as TXKANJI ,AT040.CDSOUKO as CDSOUKO ,AT040.TXSOUKO as TXSOUKO ,CASE WHEN HT020.DTKENSYU IS NULL THEN TLN_SYSDATE() ELSE HT020.DTKENSYU END as DTKENSYU ,HT020.DTKENSYU as PRE_DTKENSYU ,HT020.MODIFY_COUNT as MODIFY_COUNT FROM HT020 INNER JOIN AT030 ON HT020.IDSIIRESAKI = AT030.IDTORIHIKISAKI INNER JOIN AT040 ON HT020.CDSOUKO = AT040.CDSOUKO ``` #### 項目情報 | 並び順 | 物理項目名 | 表示名 | キー | 更新 | 検索 | 必須 | 改行 | グループ名 | 表示形式 | データ型 | 桁 | 表示桁 | 行数 | コンポーネント | 識別コード | |------|------|------|------|------|------|------|------|------|------|------|------|------|------|------|------| | 1 | NRNYUKA | 入荷№ | ○ | | ○ | ○ | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 14 | | | | | 2 | DTNYUKA | 入荷日 | | | | | | | DATE:YYYY/MM/DD | DATE | 10 | | | | | | 3 | STNYUKA | 入荷状況 | | ○ | | ○ | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 2 | | | リストボックス \(1\) | STNYUKA | | 4 | IDSIIRESAKI | 仕入先ID | | | | | ○ | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 12 | | | | | 5 | TXKANJI | 仕入先名 | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 100 | | | | | | 6 | CDSOUKO | 入荷倉庫 | | ○ | | ○ | ○ | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 12 | | | | | 7 | TXSOUKO | 倉庫名 | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 100 | | | | | | 8 | DTKENSYU | 検収日 | | ○ | | ○ | | | DATE:YYYY/MM/DD | DATE | 10 | | | | | | 9 | PRE\_DTKENSYU | | | | | | | | DATE:YYYY/MM/DD | DATE | 10 | | | | | | 10 | MODIFY\_COUNT | | | | | | | | INT:整数　　　　　　　　　　 | NUMBER | 10 | | | | | ##### 項目別 詳細設定 (ITEM_OPTN) ###### 項目: NRNYUKA (入荷№) | 設定種別 | 並び | 内容 | |------|------|------| | 検索必須 | 1 | ON | | 検索子画面 \> 機能ID | 1 | 機能ID=XDMF\_HF110\_0 \(入荷№の検索子画面\) | | 検索子画面 | 1 | 子画面項目=NRNYUKA \(入荷№\) / 項目名=NRNYUKA \(入荷№\) | | 検索子画面 | 2 | 子画面項目=NRNYUKA \(入荷№\) / 戻り値=NRNYUKA \(入荷№\) | | 検索子画面 | 3 | 項目名=ON \[INIT\_SEARCH\] | ###### 項目: STNYUKA (入荷状況) | 設定種別 | 並び | 内容 | |------|------|------| | 背景色 \> 色 | 1 | 色=\#ff060f / 条件式== / 条件値=20 | | 入力許可パターン | 1 | パターン=1 = 2 / マクロ=ON \[1\] | | DB設定式 \> 条件式 | 1 | 条件式=マクロ \[MACRO\] / 値=20 / 登録条件式=%1\_DTKENSYU% IS NOT NULL | ###### 項目: IDSIIRESAKI (仕入先ID) | 設定種別 | 並び | 内容 | |------|------|------| | 検索子画面 \> 機能ID | 1 | 機能ID=XDMF\_DF200\_0 \(仕入先マスターの検索子画面\) | | 検索子画面 | 1 | 子画面項目=IDTORIHIKISAKI \(仕入先ID\) / 項目名=IDSIIRESAKI \(仕入先ID\) | | 検索子画面 | 2 | 子画面項目=TXKANJI \(仕入先名\) / 項目名=TXKANJI \(仕入先名\) | | 検索子画面 | 3 | 子画面項目=IDTORIHIKISAKI \(仕入先ID\) / 戻り値=IDSIIRESAKI \(仕入先ID\) | | 検索子画面 | 4 | 子画面項目=TXKANJI \(仕入先名\) / 戻り値=TXKANJI \(仕入先名\) | | 検索子画面 | 5 | 項目名=ON \[INIT\_SEARCH\] | ###### 項目: CDSOUKO (入荷倉庫) | 設定種別 | 並び | 内容 | |------|------|------| | 検索子画面 \> 機能ID | 1 | 機能ID=XDMF\_AF130\_0 \(倉庫マスタの検索子画面\) | | 検索子画面 | 1 | 子画面項目=CDSOUKO \(取引倉庫Ｃ\) / 項目名=CDSOUKO \(入荷倉庫\) | | 検索子画面 | 2 | 子画面項目=TXSOUKO \(倉庫名\) / 項目名=TXSOUKO \(倉庫名\) | | 検索子画面 | 3 | 子画面項目=CDSOUKO \(取引倉庫Ｃ\) / 戻り値=CDSOUKO \(入荷倉庫\) | | 検索子画面 | 4 | 子画面項目=TXSOUKO \(倉庫名\) / 戻り値=TXSOUKO \(倉庫名\) | | 検索子画面 | 5 | 項目名=ON \[INIT\_SEARCH\] | #### 詳細設定 ##### 基本設定 (全ブロック共通) (1件) | 設定種別 | 値 | FUNC\_KBN | |------|------|------| | 表示高さ | 180 | SPACE\_HEIGHT | ##### その他 (LIST/CARD/帳票/権限など) (3件) | 設定種別 | 値 | FUNC\_KBN | |------|------|------| | 確定時オプション \> 全件を対象にする | ON \[1\] | ALL\_REG\_FLG | | 確定時オプション \> 排他制御 | ON \[1\] | EXCLUSIVE\_CONTROL\_FLG | | 処理権限 \> 更新 | ON \[1\] | UPDATE\_FLG | ### BLOCK 2: 入荷明細 [LIST] #### ブロックレベル更新先テーブル | 設定 | 内容 | |------|------| | SELECT式 \> 更新テーブル | HT011 | #### SELECT 式 ```sql SELECT HT011.NRNYUKA as NRNYUKA ,HT011.NRHATTYU as NRHATTYU ,HT011.SQHATTYU as SQHATTYU ,HT011.IDHINMOKU as IDHINMOKU ,BT010.TXHINBAN as TXHINBAN ,BT010.TXHINMEI as TXHINMEI ,HT011.PRHATTYU as PRHATTYU ,HT011.QTHATTYU as QTHATTYU ,HT011.QTKENSYU as QTKENSYU ,BT010.KBUNITPUR as KBUNITPUR ,HT011.QTKANZAN as QTKANZAN ,BT010.KBUNIT as KBUNIT ,BT010.VLKANZAN as VLKANZAN ,HT020.CDSOUKO as CDSOUKO ,HT011.NRSOURCE as NRSOURCE ,HT011.MODIFY_COUNT as MODIFY_COUNT FROM HT020 INNER JOIN HT011 ON HT020.NRNYUKA = HT011.NRNYUKA INNER JOIN BT010 ON HT011.IDHINMOKU = BT010.IDHINMOKU ``` #### 項目情報 | 並び順 | 物理項目名 | 表示名 | キー | 更新 | 検索 | 必須 | 改行 | グループ名 | 表示形式 | データ型 | 桁 | 表示桁 | 行数 | コンポーネント | 識別コード | |------|------|------|------|------|------|------|------|------|------|------|------|------|------|------|------| | 1 | NRNYUKA | 入荷№ | | | ○ | ○ | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 14 | | | | | 2 | NRHATTYU | 発注№ | ○ | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 14 | | | | | 3 | SQHATTYU | 行番 | ○ | | | | | | INT:整数　　　　　　　　　　 | NUMBER | 5 | 4 | | | | | 4 | IDHINMOKU | 品目ID | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | 12 | | | | | 5 | TXHINBAN | 品番 | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 100 | 16 | | | | | 6 | TXHINMEI | 品名 | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 100 | | | | | | 7 | PRHATTYU | 発注単価 | | ○ | | ○ | | | INT:整数　　　　　　　　　　 | NUMBER | 11 | | | | | | 8 | QTHATTYU | 発注数 | | | | | | | INT:整数　　　　　　　　　　 | NUMBER | 22 | 11 | | | | | 9 | QTKENSYU | 検収数 | | ○ | | ○ | | | INT:整数　　　　　　　　　　 | NUMBER | 11 | | | | | | 10 | KBUNITPUR | 検収単位 | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 3 | 5 | | リストボックス \(1\) | KBUNIT | | 11 | QTKANZAN | 在庫換算数 | | ○ | | | | | INT:整数　　　　　　　　　　 | NUMBER | 11 | 8 | | | | | 12 | KBUNIT | 在庫単位 | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 3 | 5 | | リストボックス \(1\) | KBUNIT | | 13 | VLKANZAN | 換算係数 | | | | | | | INT:整数　　　　　　　　　　 | NUMBER | 11 | | | | | | 14 | CDSOUKO | | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | | | | | | 15 | NRSOURCE | | | | | | | | TEXT:半角、全角混在\(Byte\) | VARCHAR2 | 30 | | | | | | 16 | MODIFY\_COUNT | | | | | | | | INT:整数　　　　　　　　　　 | NUMBER | 10 | | | | | ##### 項目別 詳細設定 (ITEM_OPTN) ###### 項目: SQHATTYU (行番) | 設定種別 | 並び | 内容 | |------|------|------| | 表示位置 | 1 | 中央 \[C\] | ###### 項目: IDHINMOKU (品目ID) | 設定種別 | 並び | 内容 | |------|------|------| | 検索子画面 \> 機能ID | 1 | 機能ID=XDMF\_BF100\_0 \(品目マスターの検索子画面\) | | 検索子画面 | 1 | 子画面項目=IDHINMOKU \(品目ID\) / 項目名=IDHINMOKU \(品目ID\) | | 検索子画面 | 2 | 子画面項目=TXHINBAN \(品番\) / 項目名=TXHINBAN \(品番\) | | 検索子画面 | 3 | 子画面項目=TXHINMEI \(品名\) / 項目名=TXHINMEI \(品名\) | | 検索子画面 | 4 | 子画面項目=IDHINMOKU \(品目ID\) / 戻り値=IDHINMOKU \(品目ID\) | | 検索子画面 | 5 | 子画面項目=TXHINBAN \(品番\) / 戻り値=TXHINBAN \(品番\) | | 検索子画面 | 6 | 子画面項目=TXHINMEI \(品名\) / 戻り値=TXHINMEI \(品名\) | ###### 項目: QTKENSYU (検収数) | 設定種別 | 並び | 内容 | |------|------|------| | FOCUS OUT | 1 | コード=var objSU = %2\_QTKENSYU%; var objVLKAN = %2\_VLKANZ… | | 入力チェックパターン | 1 | パターン=\( %2\_QTHATTYU% \>= %2\_QTKENSYU% \) AND \( %2\_QTKENSYU% \> 0 \) / エラーメッセージ=検収数に0又は発注数以上は入力できません。 / マクロ=ON \[1\] | ###### 項目: KBUNITPUR (検収単位) | 設定種別 | 並び | 内容 | |------|------|------| | 表示位置 | 1 | 中央 \[C\] | ###### 項目: QTKANZAN (在庫換算数) | 設定種別 | 並び | 内容 | |------|------|------| | 入力許可パターン | 1 | パターン=1 = 2 / マクロ=ON \[1\] | | DB設定式 \> 条件式 | 1 | 条件式=マクロ \[MACRO\] / 値=%2\_QTKENSYU% \* %2\_VLKANZAN% / 登録条件式=%2\_QTKENSYU% IS NOT NULL | ###### 項目: KBUNIT (在庫単位) | 設定種別 | 並び | 内容 | |------|------|------| | 表示位置 | 1 | 中央 \[C\] | #### 詳細設定 ##### 基本設定 (全ブロック共通) (1件) | 設定種別 | 値 | FUNC\_KBN | |------|------|------| | 検索結果０件メッセージを非表示 | ON \[1\] | IS\_SEARCH\_NOTFOUND\_MSG\_HDN | ##### その他 (LIST/CARD/帳票/権限など) (5件) | 設定種別 | 値 | FUNC\_KBN | |------|------|------| | 確定時オプション \> 全件を対象にする | ON \[1\] | ALL\_REG\_FLG | | ボタンの非表示 \> Excel更新 | ON \[1\] | EXCELUPDATE\_BUTTON\_HDN\_FLG | | 確定時オプション \> 排他制御 | ON \[1\] | EXCLUSIVE\_CONTROL\_FLG | | 処理権限 \> 更新 | ON \[1\] | UPDATE\_FLG | | ボタンの非表示 \> 参照 | ON \[1\] | VIEW\_BUTTON\_HDN\_FLG | #### 他画面呼出 ##### ボタン: 取引履歴 | 設定 | 内容 | | --- | --- | | 遷移先ボタン名 | 取引履歴 | | 機能ID | XDMF_HF026_0 (発注明細別取引実績の検討) | | 初期検索 | ON | **引数設定** (2 件) _引数 #1 — 遷移先項目: NRHATTYU (発注№)_ | 設定 | 内容 | | --- | --- | | 式 | = | | 項目 | NRHATTYU (発注№) | | 値 | ON | _引数 #2 — 遷移先項目: SQHATTYU (発注行番)_ | 設定 | 内容 | | --- | --- | | 式 | = | | 項目 | SQHATTYU (行番) | | 値 | ON | ##### ボタン: 入荷指示取消 | 設定 | 内容 | | --- | --- | | 遷移先ボタン名 | 入荷指示取消 | | 機能ID | XDMF_HF027_0 (入荷取消エントリー) | | 条件式 | %2_QTKENSYU% = 0 | | 初期検索 | ON | **引数設定** (2 件) _引数 #1 — 遷移先項目: NRHATTYU (発注№)_ | 設定 | 内容 | | --- | --- | | 式 | = | | 項目 | NRHATTYU (発注№) | | 値 | ON | _引数 #2 — 遷移先項目: SQHATTYU (発注行番)_ | 設定 | 内容 | | --- | --- | | 式 | = | | 項目 | SQHATTYU (行番) | | 値 | ON | ## 参照情報 ### メニュー位置 | FUNC\_ATH\_ID | グループ名 | 表示名 | AUTH\_KBN | PRINT\_SORT | APP\_URL | HELP\_URL | |------|------|------|------|------|------|------| | XTEA//XTEA\_ORDER | | 入荷実績エントリー | 1 | 5140 | TALON/APPLICATION/GENERALFREE/GENERALFREE.xhtml?PARAM\_FUNC\_ID=XDMF\_HF023\_0 | | ### 依存関係 #### 参照先機能 | FUNC\_ID | FUNC\_NM | APP\_KBN | |------|------|------| | XDMF\_AF130\_0 | 倉庫マスタの検索子画面 | SUB | | XDMF\_BF100\_0 | 品目マスターの検索子画面 | SUB | | XDMF\_DF200\_0 | 仕入先マスターの検索子画面 | SUB | | XDMF\_HF026\_0 | 発注明細別取引実績の検討 | STD | | XDMF\_HF027\_0 | 入荷取消エントリー | STD | | XDMF\_HF110\_0 | 入荷№の検索子画面 | SUB | #### 参照先テーブル (書き込み) _INSERT/UPDATE/DELETE/MERGE/UPDATE_TABLE 設定_ | テーブル名 | 出典 | |------|------| | HT011 | UPDATE\_TABLE \(FUNC\_SEQ=1\) / UPDATE\_TABLE \(FUNC\_SEQ=1\) | | HT020 | UPDATE\_TABLE \(FUNC\_SEQ=0\) / UPDATE\_TABLE \(FUNC\_SEQ=0\) | #### 参照先テーブル (読み取りのみ) _FROM / JOIN 句から抽出_ | テーブル名 | 出典 | |------|------| | AT030 | BLOCK1.BODY\_SQL | | AT040 | BLOCK1.BODY\_SQL | | BT010 | BLOCK2.BODY\_SQL | | DT100 | JAVA\_SCRIPT\_ENGINE/UPDATE\_AFTER \(FUNC\_SEQ=\-1\) | | FT100 | JAVA\_SCRIPT\_ENGINE/UPDATE\_AFTER \(FUNC\_SEQ=\-1\) | | HT010 | JAVA\_SCRIPT\_ENGINE/UPDATE\_AFTER \(FUNC\_SEQ=\-1\) | > **✎ テーブル参照解析の注意事項** > > - テーブル参照は `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\_HF020\_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:確定処理後\[個別\] | ### フリーレイアウト POSITION | ブロック | SCOPE | ATTR\_KBN | 配置キー | 行,列 | 種別 | 名称/ラベル | セル属性 | |------|------|------|------|------|------|------|------| | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0 | 0,0 | TABLE | | | | BLOCK 1 \(入荷見出し\) | RESULT\_AREA | BASE\_INFO | 0 | 0,0 | TABLE | | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 0,0 | TH | | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_9 | 0,0 | CELL | CDSOUKO | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_8 | 0,0 | CELL | DTKENSYU | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_7 | 0,0 | CELL | DTKENSYU | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_6 | 0,0 | CELL | STNYUKA | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_5 | 0,0 | CELL | STNYUKA | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_4 | 0,0 | CELL | TXKANJI | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_3 | 0,0 | CELL | IDSIIRESAKI | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_2 | 0,0 | CELL | IDSIIRESAKI | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_11 | 0,0 | CELL | TXSOUKO | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_10 | 0,0 | CELL | CDSOUKO | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_0 | 0,0 | CELL | DTNYUKA | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0\_1 | 0,0 | CELL | DTNYUKA | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 0,1 | TD | | CSS=tbody | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 0,2 | TH | | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 0,3 | TD | | CSS=tbody | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 0,5 | TD | | CSS=tbody | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 0,6 | TH | | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 0,7 | TD | | CSS=tbody | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 1,0 | TH | | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 1,1 | TD | | CSS=tbody | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 1,2 | TH | | | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 1,3 | TD | | CSS=tbody | | BLOCK 1 \(入荷見出し\) | BLOCK | BASE\_INFO | 0\_0\_0 | 1,5 | TD | | CSS=tbody | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0 | 0,0 | TABLE | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,1 | TH | | ⬍2 | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_14 | 0,0 | CELL | 取引履歴 | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_15 | 0,0 | CELL | SQHATTYU | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_16 | 0,0 | CELL | IDHINMOKU | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_17 | 0,0 | CELL | QTHATTYU | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_18 | 0,0 | CELL | KBUNIT | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_19 | 0,0 | CELL | PRHATTYU | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_20 | 0,0 | CELL | VLKANZAN | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_21 | 0,0 | CELL | NRHATTYU | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_22 | 0,0 | CELL | 入荷指示取消 | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_23 | 0,0 | CELL | TXHINBAN | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_24 | 0,0 | CELL | TXHINMEI | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_25 | 0,0 | CELL | QTKENSYU | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_26 | 0,0 | CELL | KBUNITPUR | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_27 | 0,0 | CELL | QTKANZAN | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0\_28 | 0,0 | CELL | NRNYUKA | | | BLOCK 2 \(入荷明細\) | RESULT\_AREA | BASE\_INFO | 1 | 1,0 | TABLE | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,2 | TH | | ⬍2 | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,3 | TH | | ⬌2 | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,4 | TH | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,5 | TH | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,6 | TH | | ⬍2 | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,7 | TH | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,8 | TH | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 1,0 | TH | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 1,1 | TH | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 1,2 | TH | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 1,3 | TH | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 1,5 | TH | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 1,6 | TH | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,1 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,2 | TD | | ⬍2 | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,3 | TD | | ⬌2 | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,4 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,5 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,6 | TD | | ⬍2 | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,7 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 0,8 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 2,0 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 2,2 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 2,3 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 2,4 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 2,5 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 2,6 | TD | | | | BLOCK 2 \(入荷明細\) | BLOCK | BASE\_INFO | 1\_0\_0 | 2,7 | TD | | | | | BLOCK | BASE\_INFO | 1\_0\_0\_4 | 0,0 | CELL | 発注単位 | | | | BLOCK | BASE\_INFO | 1\_0\_0\_5 | 0,0 | CELL | 単価 | | | | BLOCK | BASE\_INFO | 1\_0\_0\_6 | 0,0 | CELL | 換算係数 | | | | BLOCK | BASE\_INFO | 1\_0\_0\_7 | 0,0 | CELL | 発注№ | | | | BLOCK | BASE\_INFO | 1\_0\_0\_8 | 0,0 | CELL | 品番 | | | | BLOCK | BASE\_INFO | 1\_0\_0\_3 | 0,0 | CELL | 発注数 | | | | BLOCK | BASE\_INFO | 1\_0\_0\_2 | 0,0 | CELL | 品目ID | | | | BLOCK | BASE\_INFO | 1\_0\_0\_13 | 0,0 | CELL | 入荷№ | | | | BLOCK | BASE\_INFO | 1\_0\_0\_12 | 0,0 | CELL | 在庫換算数 | | | | BLOCK | BASE\_INFO | 1\_0\_0\_9 | 0,0 | CELL | 品名 | | | | BLOCK | BASE\_INFO | 1\_0\_0\_10 | 0,0 | CELL | 検収数 | | | | BLOCK | BASE\_INFO | 1\_0\_0\_1 | 0,0 | CELL | 行番 | | | | BLOCK | BASE\_INFO | 1\_0\_0\_11 | 0,0 | CELL | 検収単位 | | ### マスタ参照 #### 汎用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 | | STNYUKA | 10 | 入荷状況 | 未検収 | | | 0 | 10 | | STNYUKA | 20 | 入荷状況 | 検収済 | | | 0 | 20 | | STNYUKA | 90 | 入荷状況 | 取消済 | | | 0 | 90 | ## コードブック ### JavaScript / 各種コード #### サーバJS:確定処理後 (機能レベル, 並び=0) ```javascript //発注明細(入荷№　過去データも取得) function selectHT011_NRNYUKA_CUSTOM(_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 " + ",HT020.CDSOUKO " + ",HT020.DTKENSYU " + ",FT100.NRZAITORI AS PRE_Z_NRZAITORI " + ",FT100.CDSOUKO AS PRE_Z_CDSOUKO " + ",FT100.DTTORIHIKI AS PRE_Z_DTTORIHIKI " + ",FT100.QTZOUGEN AS PRE_Z_QTZOUGEN " + ",FT100.AMZOUGEN AS PRE_Z_AMZOUGEN " + ",DT100.NRKAIKAKE AS PRE_K_NRKAIKAKE " + ",DT100.QTTORIHIKI AS PRE_K_QTTORIHIKI " + ",DT100.PRTORIHIKI AS PRE_K_PRTORIHIKI " + "FROM HT011 " + "INNER JOIN HT010 " + " ON HT010.NRHATTYU = HT011.NRHATTYU " + "INNER JOIN HT020 " + " ON HT020.NRNYUKA = HT011.NRNYUKA " + "LEFT OUTER JOIN FT100 " + " ON FT100.KBUKEBARAI = '030' " + " AND FT100.FGVALID = 'T' " + " AND FT100.NRSOURCE = HT011.NRSOURCE " + "LEFT OUTER JOIN DT100 " + " ON DT100.KBKAITORI = '00' " + " AND DT100.FGVALID = 'T' " + " AND DT100.NRSOURCE = HT011.NRSOURCE " + "WHERE HT011.NRNYUKA = '" + _NRNYUKA + "' " ; var itemSelectList = TALON.select(sql); return itemSelectList; } function execXDMF_HF023_0() { //機能ＩＤセット（Ver3.1用） _FUNC_ID = 'XDMF_HF023_0'; tln_com_log("☆☆"); //入力情報（入荷№）取得 var itemBlockList = TALON.getBlockData_List(1); var lineDataMap = itemBlockList[0] _NRNYUKA = lineDataMap['NRNYUKA']; //対象情報（入荷見出し）取得 //var itemSelectListHT020 = selectHT020(_NRNYUKA); //var lineDataMapHT020 = itemSelectListHT020[0]; //対象情報（発注明細）取得 var itemSelectListHT011 = selectHT011_NRNYUKA_CUSTOM(_NRNYUKA); for (var i = 0; i < itemSelectListHT011.length; i++) { var lineDataMapHT011 = itemSelectListHT011[i]; //過去データと入力値の比較（変更なしの場合は処理しない） //　倉庫コード //　取引日 //　数量 //　税抜金額 if ( (lineDataMapHT011['PRE_Z_CDSOUKO'] != lineDataMapHT011['CDSOUKO'] ) || (lineDataMapHT011['PRE_Z_DTTORIHIKI'].toString() != lineDataMapHT011['DTKENSYU'].toString() ) || (lineDataMapHT011['PRE_K_QTTORIHIKI'] != lineDataMapHT011['QTKENSYU'] ) || (lineDataMapHT011['PRE_K_PRTORIHIKI'] != lineDataMapHT011['PRHATTYU'] ) ) { if (lineDataMapHT011['PRE_Z_NRZAITORI'] != null) { //赤処理を実施 var itemSelectListFT100 = selectFT100_NRSOURCE('030', lineDataMapHT011['NRSOURCE']); var lineDataMapFT100 = itemSelectListFT100[0]; //------------ //入庫取消削除 //　1 : 品目コード //　2 : 取引先コード //　3 : 倉庫コード //　4 : 取引日 //　5 : 数量 //　6 : 税抜金額 //　7 : ソース番号 //　8 : 参照番号 //　* : 在庫取引№ //　* : 買掛取引№ exec_nyuko_del( lineDataMapFT100['IDHINMOKU'] , lineDataMapFT100['TXAITESAKI'] , lineDataMapFT100['CDSOUKO'] , lineDataMapFT100['DTTORIHIKI'] , lineDataMapFT100['QTZOUGEN'] , lineDataMapFT100['AMZOUGEN'] , lineDataMapFT100['NRSOURCE'] , lineDataMapFT100['TXREFNO'] , lineDataMapHT011['PRE_Z_NRZAITORI'] , lineDataMapHT011['PRE_K_NRKAIKAKE'] ); } //検収数が０の時は黒処理は行なわない if (lineDataMapHT011['QTKENSYU'] > 0) { //黒処理を実施 //------------ //入庫新規登録 //　1 : 品目コード //　2 : 取引先コード //　3 : 倉庫コード //　4 : 取引日 //　5 : 数量 //　6 : 税抜金額 //　7 : ソース番号 //　8 : 参照番号 exec_nyuko_ins( lineDataMapHT011['IDHINMOKU'] , lineDataMapHT011['IDSIIRESAKI'] , lineDataMapHT011['CDSOUKO'] , lineDataMapHT011['DTKENSYU'] , lineDataMapHT011['QTKENSYU'] , lineDataMapHT011['PRHATTYU'] * lineDataMapHT011['QTKENSYU'] , lineDataMapHT011['NRSOURCE'] , lineDataMapHT011['NRHATTYU'] + '-' + lineDataMapHT011['SQHATTYU'] ); } } } //発注状況の更新 var itemSelectList = selectHT010(lineDataMapHT011['NRHATTYU']); var lineDataMapHT010 = itemSelectList[0]; var itemDataList = new Array(); //発注№ itemDataList['NRHATTYU'] = lineDataMapHT010['NRHATTYU']; //仕入先ID itemDataList['IDSIIRESAKI'] = lineDataMapHT010['IDSIIRESAKI']; //発注日 itemDataList['DTHATTYU'] = lineDataMapHT010['DTHATTYU']; //登録日 itemDataList['DTCREATE'] = lineDataMapHT010['DTCREATE']; //倉庫Ｃ itemDataList['CDSOUKO'] = lineDataMapHT010['CDSOUKO']; //摘要 itemDataList['TXTEKIYO'] = lineDataMapHT010['TXTEKIYO']; //発注状況 // 発注数 <= 検収数 なら 発注状況 = 40:入荷完了 以外は 30:一部入荷 // 明細単位で発注数 <= 検収数の入力は出来ないので単純なサマリでよい if ( lineDataMapHT010['QTHATTYU'] <= lineDataMapHT010['QTKENSYU'] ) { //40:入荷完了 itemDataList['STHATTYU'] = '40'; } else { //30:一部入荷 itemDataList['STHATTYU'] = '30'; } updateHT010(itemDataList); } execXDMF_HF023_0(); ``` #### 項目 FOCUS OUT JS: QTKENSYU (ブロック2, 並び=0) ```javascript var objSU = %2_QTKENSYU%; var objVLKAN = %2_VLKANZAN%; var objZAIKAN = %2_QTKANZAN%; if (objSU.value=='') { objSU.value = '0'; } if (objVLKAN.innerText=='') { objVLKAN.innerText = '0'; } /* カンマを除去して計算して、カンマ編集して在庫換算数をセット */ objZAIKAN.value = parseInt(objSU.value.replace(',','')) * parseInt(objVLKAN.innerText.replace(',','')); objZAIKAN.value = objZAIKAN.value.replace( /(\d)(?=(\d\d\d)+(?!\d))/g, '$1,'); ``` ### 共通ライブラリ #### サーバ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); } ```