<% ' ' ' %> <% 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 MotoTanka(5) '元単価 Dim SenpoShiireUriageSyuruiCD '先方注文書の文書種類CD Dim SenpoShiireUriageNaiyoCD '先方注文書の文書内容CD '############################################### 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")) '運送費 SenpoShiireUriageSyuruiCD = Request("SenpoShiireUriageSyuruiCD") '先方注文書の文書種類CD SenpoShiireUriageNaiyoCD = Request("SenpoShiireUriageNaiyoCD") '先方注文書の文書内容CD '明細部 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)) '運送単価 MotoTanka(ii) = ConvMoneyToInt(Request("MotoTanka" & ii)) '元単価 If Tanka(ii) = "" Then Tanka(ii) = "null" End If If MotoTanka(ii) = "" Then MotoTanka(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 '############################################### 2.ストアドプロシージャーの引数の作成 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 & "'" 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 & "'" 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入出庫挿入3 '" & GB_SystemCD & "'," Else Query = "exec SPD入出庫更新3 '" & 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,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 Query = Query & ","& MotoTanka(ii) '元単価 End If Next 'Response.Write("Query:" & Query) 'Exit Sub 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 (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 & "'" '文書内容CD Query = Query & ",'" & Syoribi & "'" '処理日 Query = Query & ",'" & GakuseiNo & "'" '学生番号 DebugQuery(Query) 'Response.Write("BunsyoSyuruiCD" & BunsyoSyuruiCD & "
") 'Response.Write("AddFlg" & AddFlg & "
") '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=7&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD ) End Sub %>