<%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Label
Label = "摘要管理"
If PackageMode = 1 Then
Label = "摘要マスター"
End If
Dim NRflg , ErrMSG , Action
Dim EnshuName
Dim TekiyoCD , Tekiyo '摘要コード、摘要
Dim KanrenKaisyaCD '会社コード、関連会社コード
Dim Query
Dim Content
Dim CContent
NRflg = Request("nr")
Action = Request("Action")
TekiyoCD = Request("TekiyoCD")
ErrMSG = Request("ErrMSG")
'演習名称ＧＥＴ
EnshuName = ConvEnshuMeisyo(EnshuCD)
If NRflg = "r" then
TekiyoCD = Request("TekiyoCD")
KaisyaCD = Request("KaisyaCD")
EnshuCD = Request("EnshuCD")
KanrenKaisyaCD = Request("KanrenKaisyaCD ")
Tekiyo = Request("Tekiyo")
ErrMsg = Request("ErrMsg")
Else
'Query = "exec SPM商品取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & SyohinCD & "'"
Query = "exec SPM摘要取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TekiyoCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
TekiyoCD = Content.Fields("摘要CD")
KaisyaCD = Content.Fields("会社CD")
EnshuCD = Content.Fields("演習CD")
KanrenKaisyaCD = Content.Fields("関連会社CD")
Tekiyo = Content.Fields("摘要")
End If
End If
If Action = "1" Then '追加をする場合
'摘要CDＧＥＴ及び処理
Dim TekiyoCDNUM '数字摘要コード
Dim TekiyoCDSTR '文字摘要コード
Dim StrLenb '摘要コードの長さ
Dim Blank '0の数
end if
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>