<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType Dim BinType Dim Syoribi Dim Kanryobi Dim BunsyoNaiyoCD Dim SBunsyoNaiyoCD Dim ZBunsyoNaiyoCD Dim SyohinCD Dim SyohinKubun Dim SoSeizoSu Dim SyohinTanka Dim SeihinSyukkoCD ReDim SeihinSyukkoCD(0) Dim RoumuHi Dim KeiHi Dim Query Dim Content '############################################### １．データの引継ぎ RouteType = Request("RouteType") BinType = Request("BinType") Syoribi = Request("Syoribi") Kanryobi = Request("Kanryobi") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") ZBunsyoNaiyoCD = Request("ZBunsyoNaiyoCD") SyohinCD = Request("SyohinCD") SyohinKubun = Request("SyohinKubun") SoSeizoSu = ConvMoneyToInt(Request("SoSeizoSu")) SyohinTanka = ConvMoneyToInt(Request("SyohinTanka")) KeiHi = ConvMoneyToInt(Request("KeiHi")) RoumuHi = ConvMoneyToInt(Request("RoumuHi")) If "" & RoumuHi = "" Then RoumuHi = 0 End If If "" & KeiHi = "" Then KeiHi = 0 End If Dim TmpCnt '明細行数分の材料単価情報を配列にリクエスト Dim ZairyoCD ReDim ZairyoCD(0) Dim Tanka ReDim Tanka(0) Dim Suryo ReDim Suryo(0) Dim ZairyoCnt ZairyoCnt = CInt(Request("ZairyoCnt")) For TmpCnt = 1 To ZairyoCnt ReDim PreServe ZairyoCD(TmpCnt) ZairyoCD(TmpCnt) = Request("ZairyoCD" & TmpCnt) ReDim PreServe Tanka(TmpCnt) Tanka(TmpCnt) = ConvMoneyToInt(Request("Tanka" & TmpCnt)) ReDim PreServe Suryo(TmpCnt) Suryo(TmpCnt) = ConvMoneyToInt(Request("Suryo" & TmpCnt)) Next 'For TmpCnt = 1 To ZairyoCnt 'Response.Write(ZairyoCD(TmpCnt) & "：" & Tanka(TmpCnt) & "
" & vbCrLf) 'Next 'Exit Sub '削除モード If BinType = "Del" Then Query = "exec SPD製造指図書削除 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" '演習CD Query = Query & ", '" & KaisyaCD & "'" '会社CD Query = Query & ", '" & BunsyoNaiyoCD & "'" 'Response.Write(Query & vbCrLf) 'Exit Sub Set Content = OpenQuery(Query) Response.Redirect(Replace(Request.ServerVariables("SCRIPT_NAME"), "_bin.asp", "_ichiran.asp")) End If '製造完了モード If BinType = "Seihin" Then '仕掛品出庫 Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ", '" & KaisyaCD & "'" '会社CD Query = Query & ", '" & KaisyaCD & "'" '作成会社CD If SyohinKubun = "S" Then Query = Query & ", 'PU'" '文書種類CD（仕掛品出庫） Else Query = Query & ", 'YU'" '文書種類CD（材料仕掛品出庫） End If Query = Query & ", ''" '文書内容CD Query = Query & ", 1" '処理時期区分 Query = Query & ", '" & Kanryobi & "'" '処理日 Query = Query & ", 'SJ4SEIZOZIES'" '取引先CD Query = Query & ", '" & BunsyoNaiyoCD & "'" '先方文書内容CD（仕掛品入庫の文書内容CD） Query = Query & ", 'PS'" '先方文書種類CD（仕掛品入庫） Query = Query & ", '" & Syoribi & "'" '先方処理日（仕掛品入庫の処理日） Query = Query & ", ''" '運賃諸掛区分 Query = Query & ", null" '運送費 Query = Query & ", '" & GakuseiNo & "'" '学生番号 Query = Query & ", ''" '先方注文書の文書種類CD Query = Query & ", ''" '先方注文書の文書内容CD '明細部（1行のみ） Query = Query & ", 1" '伝票SEQ Query = Query & ", '" & SyohinCD & "'" '商品CD Query = Query & ", " & SoSeizoSu '総製造数 Query = Query & ", " & SyohinTanka '製品単価 Query = Query & ", null" '運送単価 Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" 'Response.Write(Query & vbCrLf) 'Exit Sub Set Content = OpenQuery(Query) SBunsyoNaiyoCD = Content.Fields(0) '仕掛品出庫の文書内容CDを取得 '製品入庫 Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ", '" & KaisyaCD & "'" '会社CD Query = Query & ", '" & KaisyaCD & "'" '作成会社CD If SyohinKubun = "S" Then Query = Query & ", 'MS'" '文書種類CD（製品入庫） Else Query = Query & ", 'ZS'" '文書種類CD（材料入庫） End If Query = Query & ", ''" '文書内容CD Query = Query & ", 1" '処理時期区分 Query = Query & ", '" & Kanryobi & "'" '処理日 Query = Query & ", 'SJ4SEIZOZIES'" '取引先CD Query = Query & ", '" & SBunsyoNaiyoCD & "'" '先方文書内容CD（仕掛品出庫の文書内容CD） Query = Query & ", 'PU'" '先方文書種類CD（仕掛品出庫） Query = Query & ", '" & Kanryobi & "'" '先方処理日（仕掛品出庫の処理日） Query = Query & ", ''" '運賃諸掛区分 Query = Query & ", null" '運送費 Query = Query & ", '" & GakuseiNo & "'" '学生番号 Query = Query & ", ''" '先方注文書の文書種類CD Query = Query & ", ''" '先方注文書の文書内容CD '明細部（1行のみ） Query = Query & ", 1" '伝票SEQ Query = Query & ", '" & SyohinCD & "'" '商品CD Query = Query & ", " & SoSeizoSu '総製造数 Query = Query & ", " & SyohinTanka '製品単価 Query = Query & ", null" '運送単価 Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" 'Response.Write(Query & vbCrLf) 'Exit Sub Set Content = OpenQuery(Query) SBunsyoNaiyoCD = Content.Fields(0) '製品入庫の文書内容CDを取得 '製造指図書更新 Query = "exec SPD製造指図書更新 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Query = Query & ", '" & BunsyoNaiyoCD & "'" If SyohinKubun = "S" Then Query = Query & ", 'MS'" '製造状況区分（製品入庫） Else Query = Query & ", 'ZS'" '製造状況区分（材料入庫） End If Query = Query & ", '" & SBunsyoNaiyoCD & "'" Query = Query & ", '" & ZBunsyoNaiyoCD & "'" Query = Query & ", '" & Kanryobi & "'" 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) BunsyoNaiyoCD = Content.Fields(0) '文書内容CDを取得 Response.Redirect(Replace(Request.ServerVariables("SCRIPT_NAME"), "_bin.asp", "_view.asp") & "?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Mode=Seihin") Exit Sub End If '仕掛モード '仕掛品入庫 Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ", '" & KaisyaCD & "'" '会社CD Query = Query & ", '" & KaisyaCD & "'" '作成会社CD ' Query = Query & ", 'SS'" '文書種類CD If SyohinKubun = "S" Then Query = Query & ", 'PS'" '文書種類CD（仕掛品入庫） Else Query = Query & ", 'YS'" '文書種類CD（材料仕掛品入庫） End If Query = Query & ", ''" '文書内容CD Query = Query & ", 1" '処理時期区分 Query = Query & ", '" & Syoribi & "'" '処理日 Query = Query & ", 'SJ4SEIZOZIES'" '取引先CD Query = Query & ", null" '先方文書種類CD Query = Query & ", null" '先方文書内容CD Query = Query & ", '" & Syoribi & "'" '先方処理日 Query = Query & ", ''" '運賃諸掛区分 Query = Query & ", null" '運送費 Query = Query & ", '" & GakuseiNo & "'" '学生番号 Query = Query & ", ''" '先方注文書の文書種類CD Query = Query & ", ''" '先方注文書の文書内容CD '明細部（1行のみ） Query = Query & ", 1" '伝票SEQ Query = Query & ", '" & SyohinCD & "'" '商品CD Query = Query & ", " & SoSeizoSu '総製造数 Query = Query & ", " & SyohinTanka '製品単価 Query = Query & ", null" '運送単価 Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" 'Response.Write(Query & vbCrLf) 'Exit Sub Set Content = OpenQuery(Query) SBunsyoNaiyoCD = Content.Fields(0) '仕掛品入庫の文書内容CDを取得 Dim SeihinSyukkoCnt SeihinSyukkoCnt = 0 '材料(または材料指定製品)出庫 For TmpCnt = 1 To ZairyoCnt '材料指定製品出庫（現在利用停止中） If Left(ZairyoCD(TmpCnt), 15) = "SyohinCDCnihoyS" Then Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '作成会社CD Query = Query & ",'MU'" '文書種類CD Query = Query & ",''" '文書内容CD Query = Query & ",1" '処理時期区分 Query = Query & ",'" & Syoribi & "'" '処理日 Query = Query & ", 'SJ4SEIZOZIES'" '取引先CD Query = Query & ", null" '先方文書種類CD Query = Query & ", null" '先方文書内容CD Query = Query & ", '" & Syoribi & "'" '先方処理日 Query = Query & ", ''" '運賃諸掛区分 Query = Query & ", null" '運送費 Query = Query & ", '" & GakuseiNo & "'" '学生番号 Query = Query & ", ''" '先方注文書の文書種類CD Query = Query & ", ''" '先方注文書の文書内容CD '明細部（1行のみ） Query = Query & ", 1" '伝票SEQ Query = Query & ", '" & Replace(ZairyoCD(TmpCnt), "SyohinCDCnihoyS", "") & "'" '製品CD Query = Query & ", " & Suryo(TmpCnt) '数量 Query = Query & ", " & Tanka(TmpCnt) '単価 Query = Query & ", null" '運送単価 Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Set Content = OpenQuery(Query) SeihinSyukkoCnt = SeihinSyukkoCnt + 1 ReDim PreServe SeihinSyukkoCD(SeihinSyukkoCnt) SeihinSyukkoCD(SeihinSyukkoCnt) = Content.Fields(0) '材料指定製品出庫の文書内容CDを配列に取得 '材料出庫（テンポラリ挿入） Else Query = "exec SPD材料出庫挿入 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" '演習CD Query = Query & ", '" & KaisyaCD & "'" '会社CD Query = Query & ", '" & ZairyoCD(TmpCnt) & "'" '商品CD If Suryo(TmpCnt) = "" Then Query = Query & ", null" Else Query = Query & ", " & Suryo(TmpCnt) & "" '数量 End If If Tanka(TmpCnt) = "" Then Query = Query & ", null" Else Query = Query & ", " & Tanka(TmpCnt) & "" '仕入単価 End If Query = Query & ", 0" '運送単価 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) ZBunsyoNaiyoCD = Content.Fields(0) '材料出庫の文書内容CDを取得 End If Next 'Response.Write(ZBunsyoNaiyoCD) 'Exit Sub '材料出庫（テンポラリより更新） Query = "exec SPD材料出庫更新 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Query = Query & ", '" & ZBunsyoNaiyoCD & "'" Query = Query & ", '" & Syoribi & "'" Query = Query & ", '" & GakuseiNo & "'" 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) '製造指図書挿入 Query = "exec SPD製造指図書挿入 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" If SyohinKubun = "S" Then Query = Query & ", 'PS'" '製造状況区分（仕掛品入庫） Else Query = Query & ", 'YS'" '製造状況区分（材料仕掛品入庫） End If Query = Query & ", '" & SBunsyoNaiyoCD & "'" Query = Query & ", '" & ZBunsyoNaiyoCD & "'" '材料出庫CD Query = Query & ", '" & Syoribi & "'" Query = Query & ", " & KeiHi & "" Query = Query & ", " & RoumuHi & "" Query = Query & ", '" & GakuseiNo & "'" 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) BunsyoNaiyoCD = Content.Fields(0) '文書内容CDを取得 Response.Redirect(Replace(Request.ServerVariables("SCRIPT_NAME"), "_bin.asp", "_view.asp") & "?BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&Mode=Shikakari") End Sub %>