%
'
'
'
%>
<%
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
%>