%
'
'
%>
<%
main()
Sub main()
Dim SakuseiKaisyaCD '作成会社CD
Dim TorihikisakiCD '取引先CD
Dim KitakuGaisyaCD '寄託会社CD
Dim SenpoKitakuGaisyaCD '先方寄託会社CD
Dim UnsoGaisyaCD '運送会社CD
Dim UnsoGaisyaMei '運送会社名
Dim BunsyoSyuruiCD '文書種類CD
Dim BunsyoNaiyoCD '文書内容CD
Dim SenpoBunsyoSyuruiCD '先方文書種類CD
Dim SenpoBunsyoNaiyoCD '先方文書内容CD
Dim Syoribi '処理日
Dim SenpoSyoribi '先方処理日
Dim NonyuKijitsu '納入期日
Dim UntinSyogakariKubun '運賃諸掛区分
Dim Unsohi '運送費
Dim UnsohiSeikyuFlg '運送請求フラグ
Dim Tekiyo '摘要
Dim ShiharaiHoho '支払方法
Dim HasshinFlg '発信フラグ
Dim Kakaku(6) '標準単価
Dim SyohinCD(6) '商品コード
Dim SyohinName(6) '商品名称
Dim Suryo(6) '数量
Dim Tanka(6) '単価
Dim UnsoTanka(6) '運送単価
Dim Zaiko(6) '在庫数量
Dim GakuseiShimei '学生氏名(係印)
Dim SyoruiMei '書類名
Dim Query
Dim Content
Dim Shimei '氏名
Dim PageType
Dim ZaikoTemp
Dim ShijyoCD(5) '市場CD
Dim SyohinNyusyukkoSeikousei
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
Dim Bintype
Bintype = Request("Bintype")
If Bintype = "" Then
Bintype = "KitakuSyukoIrai"
End If
'フラグ取得
Dim Kitakuriyou
Dim Jissenbi
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用")
Kitakuriyou = Content.Fields("寄託倉庫利用")
Jissenbi = "" & Content.Fields("実践日")
End If
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
If KitakuGaisyaCD = "" Then
KitakuGaisyaCD = Content.Fields("寄託会社CD")
End If
End If
PageType = Request("PageType")
Dim SenpoFlg
SenpoFlg = 0
If SenpoBunsyoNaiyoCD <> "" Then
SenpoFlg = 1
End If
'SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD)
If BunsyoSyuruiCD = "SX" Then
SyoruiMei = "寄託確認"
Else
SyoruiMei = "寄託出庫依頼書"
End If
If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then
If SenpoFlg = 1 Then
Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
Else
Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
End If
'Response.Write(Query)
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
If SenpoFlg = 1 Then
SakuseiKaisyaCD = Content.Fields("作成会社CD")
TorihikisakiCD = Content.Fields("取引先CD")
Syoribi = Content.Fields("処理日")
SenpoSyoribi = Content.Fields("先方処理日")
Else
SakuseiKaisyaCD = Content.Fields("作成会社CD")
TorihikisakiCD = Content.Fields("取引先CD")
Syoribi = Content.Fields("先方処理日")
SenpoSyoribi = Content.Fields("処理日")
End If
UnsoGaisyaCD = Content.Fields("運送会社CD")
KitakuGaisyaCD = Content.Fields("寄託会社CD")
SenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD")
Do While Not(Content.BOF Or Content.EOF)
Dim DenpyoSEQ,PreDenpyoSEQ
DenpyoSEQ = Content.Fields("文書内容SEQ")
SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
Zaiko(DenpyoSEQ) = ConvSyohinZaiko(Content.Fields("商品CD"))
ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD")
SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
Suryo(DenpyoSEQ) = Content.Fields("数量")
Tanka(DenpyoSEQ) = Content.Fields("単価")
UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価")
Content.MoveNext
Loop
End If
End If
Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', 'KS', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
' Response.Redirect("fd_kitaku_syukko_view.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=KS&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BinType=Hasshin")
HasshinFlg = Content.Fields("発行フラグ")
End If
Dim jj,tmps
Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth
SyohinMeisyo = "商品略名称"
SyohinMeisyoListWidth = "width: 120;"
ShijyoListWidth = "width:80"
If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then
SyohinMeisyo = "商品略名称"
SyohinMeisyoListWidth = "width: 120;"
ShijyoListWidth = "width:80"
Else
SyohinMeisyo = "商品名称"
End If
'Response.Write("[" & KitakuGaisyaCD & "]
")
'Response.Write("[" & SenpoKitakuGaisyaCD & "]
")
'Exit Sub
'何らかの理由で仕入売上書類Fの寄託会社・先方寄託会社にNULLがセットされてしまうことがあるので保険(091225)
If "" & KitakuGaisyaCD = "" Then
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KitakuGaisyaCD = Content.Fields("寄託会社CD")
Query = ""
Query = Query & " "
Query = Query & " UPDATE TSA仕入売上書類F "
Query = Query & " SET 寄託会社CD = '" & KitakuGaisyaCD & "' "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 作成会社CD = '" & KaisyaCD & "' "
Query = Query & " AND (寄託会社CD = '' OR 寄託会社CD IS NULL) "
' Set Content = OpenQuery(Query)
' Query = ""
' Query = Query & " "
Query = Query & " UPDATE TSA仕入売上書類F "
Query = Query & " SET 先方寄託会社CD = '" & KitakuGaisyaCD & "' "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 取引先CD = '" & KaisyaCD & "' "
Query = Query & " AND (先方寄託会社CD = '' OR 先方寄託会社CD IS NULL) "
Set Content = OpenQuery(Query)
End If
End If
If "" & SenpoKitakuGaisyaCD = "" Then
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
SenpoKitakuGaisyaCD = Content.Fields("寄託会社CD")
Query = ""
Query = Query & " "
Query = Query & " UPDATE TSA仕入売上書類F "
Query = Query & " SET 先方寄託会社CD = '" & SenpoKitakuGaisyaCD & "' "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 取引先CD = '" & TorihikisakiCD & "' "
Query = Query & " AND (先方寄託会社CD = '' OR 先方寄託会社CD IS NULL) "
' Set Content = OpenQuery(Query)
' Query = ""
' Query = Query & " "
Query = Query & " UPDATE TSA仕入売上書類F "
Query = Query & " SET 寄託会社CD = '" & SenpoKitakuGaisyaCD & "' "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 作成会社CD = '" & TorihikisakiCD & "' "
Query = Query & " AND (寄託会社CD = '' OR 寄託会社CD IS NULL) "
Set Content = OpenQuery(Query)
End If
End If
'Response.Write("[" & KitakuGaisyaCD & "]
")
'Response.Write("[" & SenpoKitakuGaisyaCD & "]
")
'Exit Sub
%>
<% = HtmlHeader("") %>