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