<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim AddFlg Dim BunsyoNaiyoCD, Syoribi, TorihikisakiCD, UntinSyogakariKubun, Unsohi Dim BunsyoSyuruiCD, SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi Dim SyohinCD(5) '商品コード Dim Suryo(5) '数量 Dim Tanka(5) '単価 Dim UnsoTanka(5) '運送単価 Dim Query Dim Content Dim ii, jj Dim SakuseiKaisyaCD Dim KitakuTo Dim SenpoShiireUriageSyuruiCD '先方注文書の文書種類CD Dim SenpoShiireUriageNaiyoCD '先方注文書の文書内容CD Dim Kitakuriyou Dim KitakuGaisyaCD Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuGaisyaCD = Content.Fields("寄託会社CD") End If End If '############################################### 1.データの引継ぎ 'ヘッダ部 BunsyoNaiyoCD = Request("BunsyoNaiyoCD") '文書内容CD Syoribi = Request("Syoribi") '処理日 SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") '先方文書内容CD SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") '先方文書種類CD SenpoSyoribi = Request("SenpoSyoribi") '先方処理日 BunsyoSyuruiCD = Request("BunsyoSyuruiCD") '文書種類CD TorihikisakiCD = Request("TorihikisakiCD") '取引先CD UntinSyogakariKubun = Request("UntinSyogakariKubun") '運賃諸掛区分 Unsohi = ConvMoneyToInt(Request("Unsohi")) '運送費 SakuseiKaisyaCD = Request("SakuseiKaisyaCD") SenpoShiireUriageSyuruiCD = Request("SenpoShiireUriageSyuruiCD") '先方注文書の文書種類CD SenpoShiireUriageNaiyoCD = Request("SenpoShiireUriageNaiyoCD") '先方注文書の文書内容CD KitakuTo = Request("KitakuTo") '寄託保管期日 '明細部 For ii = 1 To 5 SyohinCD(ii) = Request("SyohinCD" & ii) '商品CD Suryo(ii) = ConvMoneyToInt(Request("Suryo" & ii)) '数量 Tanka(ii) = ConvMoneyToInt(Request("Tanka" & ii)) '単価 UnsoTanka(ii) = ConvMoneyToInt(Request("UnsoTanka" & ii)) '運送単価 If Tanka(ii) = "" Then Tanka(ii) = "null" End If ' If Tanka(ii) <> "" Then ' If BunsyoSyuruiCD = "X" Or BunsyoSyuruiCD = "1" Then ' Suryo(ii) = -1 * Int(Suryo(ii)) ' End If ' End If Next 'Response.Write("TorihikisakiCD = " & TorihikisakiCD & "
") 'Response.Write("BunsyoSyuruiCD = " & BunsyoSyuruiCD & "
") 'Response.Write("BunsyoNaiyoCD = " & BunsyoNaiyoCD & "
") 'Response.Write("SyohinCD(1) = " & SyohinCD(1) & "
") 'Response.Write("Suryo(1) = " & Suryo(1) & "
") 'Response.Write("Tanka(1) = " & Tanka(1) & "
") 'Exit Sub '############################################### 2.ストアドプロシージャーの引数の作成 '先方文書依存で先方出庫済の入庫の場合は多重入庫を防ぐためすでに入庫されていないか再確認(170621小野) If SenpoBunsyoSyuruiCD <> "" And SenpoBunsyoSyuruiCD <> "MS" Then '製造部出庫は先方文書でないため確認できない(210802小野) Dim SonzaiFlg SonzaiFlg = False Query = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', '" & SenpoBunsyoSyuruiCD & "'" 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("会社CD") <> Content.Fields("作成会社CD") Then '先方文書一覧の場合は 会社CD<>作成会社CD に絞る If Content.Fields("処理時期区分") <> 0 Then '期首繰越商品は除く If Content.Fields("削除フラグ") = 0 And Content.Fields("返信フラグ") = 0 Then 'フラグが立っていないものに絞る If "" & Content.Fields("文書内容CD") = SenpoBunsyoNaiyoCD Then SonzaiFlg = True '先方文書が存在すれば未入庫 Exit Do End If End If End If End If Content.MoveNext Loop If Not(SonzaiFlg) Then Response.Write("すでに入庫済みです
") Response.Write("戻る") Exit Sub End If End If If Request("Action") = "Del" Then Query = "exec SPD入出庫削除 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '作成会社CD Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD Set Content = OpenQuery(Query) Response.Redirect("fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD) End If If Request("Action") = "Deny" Then Query = "exec SPD入出庫非受付 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & TorihikisakiCD & "'" '取引先CD Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'" '文書種類CD Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'" '文書内容CD Set Content = OpenQuery(Query) Response.Redirect("fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD) End If '実行プロシージャーの特定  AddFlg = 0 If BunsyoNaiyoCD = "" Then '追加モード AddFlg = 1 End If '自社入出庫レコード If AddFlg = 1 Then Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "'," Else Query = "exec SPD入出庫更新 '" & GB_SystemCD & "'," End If Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '作成会社CD Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD If BunsyoNaiyoCD = "" Then Query = Query & ",''" Else Query = Query & ",'" & BunsyoNaiyoCD & "'" End If Query = Query & ",1" '処理時期区分 Query = Query & ",'" & Syoribi & "'" '処理日 Query = Query & ",'" & TorihikisakiCD & "'" '取引先CD If SenpoBunsyoNaiyoCD = "" Then Query = Query & ", null" Else Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'" '先方文書内容CD End If Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'" '先方文書種類CD If SenpoSyoribi = "" Then Query = Query & ", null" Else Query = Query & ",'" & SenpoSyoribi & "'" '先方処理日 End If Query = Query & ",'" & UntinSyogakariKubun & "'" '運賃諸掛区分 If Unsohi = "" Then Query = Query & ", null" Else Query = Query & "," & Unsohi & "" '運送費 End If Query = Query & ",'" & GakuseiNo & "'" '学生番号 Query = Query & ",'" & SenpoShiireUriageSyuruiCD & "'" '先方注文書の文書種類CD Query = Query & ",'" & SenpoShiireUriageNaiyoCD & "'" '先方注文書の文書内容CD '明細部 jj = 0 For ii = 1 To 5 If SyohinCD(ii) = "" Then Query = Query & ",null,null,null,null,null" Else jj = jj + 1 Query = Query & "," & jj '伝票SEQ Query = Query & ",'"& SyohinCD(ii) & "'" '商品CD Query = Query & ","& Suryo(ii) '受注数量 Query = Query & ","& Tanka(ii) '受注単価 If UnsoTanka(ii) = "" Then Query = Query & ", null" Else Query = Query & "," & UnsoTanka(ii) & "" '運送単価 End If End If Next '############################################### ?.ストアドプロシージャ-実行 DebugQuery(Query) Set Content = OpenQuery(Query) While Not Content Is Nothing If Content.Fields.Count > 0 Then BunsyoNaiyoCD = Content.Fields(0) End If Set Content = Content.NextRecordset Wend '自社の寄託倉庫に入庫 If AddFlg = 1 And Kitakuriyou = "1" And (BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "MU") Then Query = "exec SPD寄託在庫挿入2 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ", '" & KitakuGaisyaCD & "'" '会社CD Query = Query & ", '" & KaisyaCD & "'" '作成会社CD Query = Query & ", '" & KaisyaCD & "'" '寄託依頼会社CD If BunsyoSyuruiCD = "MU" Then Query = Query & ", 'SS'" '先方文書種類CD Else Query = Query & ", '" & BunsyoSyuruiCD & "'" '先方文書種類CD End If Query = Query & ", '" & BunsyoNaiyoCD & "'" 'SPD入出庫挿入で採番した文書内容CDに連動させる Query = Query & ", null" '寄託受付番号(採番) If Syoribi = "" Then Query = Query & ", null" Else Query = Query & ", '" & Syoribi & "'" '寄託開始年月日 End If If KitakuTo = "" Then Query = Query & ", null" Else Query = Query & ", '" & KitakuTo & "'" '寄託保管期日 End If If Syoribi = "" Then Query = Query & ", null" Else Query = Query & ", '" & Syoribi & "'" '入庫年月日 End If Query = Query & ", ''" '倉庫場所 Query = Query & ", ''" '倉庫種別 If Syoribi = "" Then Query = Query & ", null" Else Query = Query & ", '" & Syoribi & "'" '処理日 End If Query = Query & ", '" & GakuseiNo & "'" '学生番号 Query = Query & ", ''" '摘要 Query = Query & ", null" '火災保険料金 Query = Query & ", null" '火災保険料率 Query = Query & ", null" '荷役料金 Query = Query & ", null" '荷役量率 Query = Query & ", null" '従量率 Query = Query & ", null" '従価率 Query = Query & ", null" '保管料金 Query = Query & ", null" '倉荷証券番号 Query = Query & ", null" '倉荷証券発行手数料 '明細部 jj = 0 For ii = 1 To 5 If SyohinCD(ii) = "" Then Query = Query & ",null,null,null,null,null" Else jj = jj + 1 Query = Query & "," & jj '寄託受付番号SEQ Query = Query & ",'"& SyohinCD(ii) & "'" '商品CD Query = Query & ","& Suryo(ii) '数量 If Tanka(ii) = "" Then Query = Query & ", null" Else Query = Query & "," & Tanka(ii) & "" '単価 End If If UnsoTanka(ii) = "" Then Query = Query & ", null" Else Query = Query & "," & UnsoTanka(ii) & "" '運送単価 End If End If Next Set Content = OpenQuery(Query) End If '製造部製品入庫 If (BunsyoSyuruiCD = "MU") THen Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '作成会社CD Query = Query & ",'SS'" '文書種類CD Query = Query & ",''" '文書内容CD Query = Query & ",1" '処理時期区分 Query = Query & ",'" & Syoribi & "'" '処理日 Query = Query & ",'SJ4SEIZOZIES'" '取引先CD Query = Query & ",'" & BunsyoNaiyoCD & "'" '先方文書内容CD Query = Query & ",'" & BunsyoSyuruiCD & "'" '先方文書種類CD Query = Query & ",'" & Syoribi & "'" '先方処理日 Query = Query & ",'" & UntinSyogakariKubun & "'" '運賃諸掛区分 Query = Query & ", null" '運送費 Query = Query & ",'" & GakuseiNo & "'" '学生番号 Query = Query & ",''" '先方注文書の文書種類CD Query = Query & ",''" '先方注文書の文書内容CD '明細部 Query = Query & ", 1" '伝票SEQ Query = Query & ",'"& SyohinCD(1) & "'" '商品CD Query = Query & ","& Suryo(1) '受注数量 Query = Query & ","& Tanka(1) '受注単価 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) End If If (BunsyoSyuruiCD = "SU" OR BunsyoSyuruiCD = "SX") THen Query = "exec SPD入出庫発信 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD Query = Query & ",'" & BunsyoNaiyoCD & "'" Query = Query & ",'" & Syoribi & "'" '処理日 Query = Query & ",'" & GakuseiNo & "'" '学生番号 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) End If If AddFlg = 1 Then If Not(BunsyoSyuruiCD = "SU" OR BunsyoSyuruiCD = "SX") THen Query = "exec SPD入出庫受付 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & TorihikisakiCD & "'" '会社CD Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'" '文書種類CD Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'" DebugQuery(Query) Set Content = OpenQuery(Query) End If End If '############################################### 4.更新データをビューで表示 Response.Redirect("fd_nyusyukko_view.asp?Action=" & AddFlg + 6 & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD ) ' 追加モードはAction=7(トラック有り) ' 修正モードはAction=6(トラック無し) End Sub %>