%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim HyojiFlg
HyojiFlg = Request("HyojiFlg")
Dim ShijoCD
ShijoCD = Request("ShijoCD")
'運用管理対応(080415小野)
Dim TmpGakuseiNo
Dim Tmp2GakuseiNo
'製造部対応(080411小野)
Dim Mode
Mode = Request("Mode")
Dim Label
If Mode = "Seizo" Then '製造部対応(080411小野)
Label = "材料"
Else
Label = "商品"
End If
Dim GenkinNyusyukinCD, Genkin , Kingaku
Dim Query, Content, Content1, ContentKoza , QueryKoza , Query1
Dim NumGinko
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 TmpKaikeiSyuryobi
Dim JishaZaikoHitsuyo
Dim Kitakuriyou
Dim KitakuKeiyaku
Dim KitakuGaisyaCD
Dim HyojunTankaHyoji
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
TmpKaikeiSyuryobi = Content.Fields("会計終了日")
JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要")
HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
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")
'運用管理対応(080415小野)
TmpGakuseiNo = "" & Content.Fields("学生番号")
If "" & Content.Fields("自社フラグ") = "1" Then
Tmp2GakuseiNo = "" & Content.Fields("学生番号")
End If
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 %>
<% = HtmlFooter %>
<% For ii = 1 To 2 'vaSpread1・2の定義を生成する %>
<% Next %>
<% If Mode <> "Seizo" And GB_Gyosyu = "S" And Kitakuriyou = 1 And KitakuKeiyaku < 1 Then %>
<% Else %>
<% End If %>
<%
End Sub
%>