%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim BunsyoSyuruiCD, SenpoBunsyoSyuruiCD
Dim SyoruiMei, SenpoSyoruiMei
Dim NyusyukoKubun
Dim ErrMsg
ErrMsg = Request("ErrMsg")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
NyusyukoKubun = Request("NyusyukoKubun")
Dim SyoruiKubun
Dim SenpoFlg
SenpoFlg = 0
If SenpoBunsyoSyuruiCD <> "" Then
SenpoFlg = 1
End If
Select Case SenpoBunsyoSyuruiCD
Case "KI"
SenpoSyoruiMei = "先方見積依頼書"
Case "KM"
SenpoSyoruiMei = "先方見積書"
Case "KC"
SenpoSyoruiMei = "先方注文書"
Case "KU"
SenpoSyoruiMei = "先方注文請書"
Case "KK"
SenpoSyoruiMei = "先方注文請書確認"
Case "KN"
SenpoSyoruiMei = "先方納品請求書"
Case "KB"
SenpoSyoruiMei = "先方物品受領書"
Case "KX"
SenpoSyoruiMei = "先方買入申込書"
Case "KY"
SenpoSyoruiMei = "先方売渡申込書"
Case Else
End Select
Dim PageType
Select Case BunsyoSyuruiCD
Case "KV"
PageType = "買入一括受付"
SyoruiKubun = "V"
Case "KW"
PageType = "売渡一括受付"
SyoruiKubun = "W"
Case Else
End Select
Select Case NyusyukoKubun
Case "S"
SyoruiMei = "仕入入庫"
Case "U"
SyoruiMei = "売上出庫"
End Select
Dim SenchakuCnt
SenchakuCnt = 0
%>
<% = HtmlHeader("") %>