%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim GenkinNyusyukinCD, Genkin , Kingaku
Dim Query, Content, Content1, ContentKoza , QueryKoza , Query1
Dim NumSyohin, NumGinko
NumSyohin = 0
NumGinko = 0
Dim ii, jj, kk
Dim bCheck
Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Genkin = Content.Fields("金額")
End If
Dim SyohinSelect
SyohinSelect = ""
Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content1 = OpenQuery(Query)
Do While Not(Content1.BOF Or Content1.EOF)
SyohinSelect = SyohinSelect & "" & vbCrLf
Content1.MoveNext
Loop
Dim Kitakuriyou
Dim KitakuKeiyaku
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
If Kitakuriyou = "1" Then
Kitakuriyou = 1
Else
Kitakuriyou = 0
End If
KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字
'GyosyuCDをGB_Gyosyuに引継ぎ(運用管理用)
If Request("GyosyuCD") <> "" Then
GB_Gyosyu = Request("GyosyuCD")
End If
%>
<% = AppTitle %>
<% Response.Write("" & vbCrLf) %>
<% = HtmlFooter %>
<%
End Sub
%>