%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query, Content, rsts, RouteType
Dim DbEnshuCD, EnshuCD, JidoBangoDenpyo, JidoBangoShiireUriageSyorui, JidoBangoGinkoSyorui, JidoBangoTegata, JidoBangoRyosyusyo
Dim EnshuID, EnshuPassword, RiyoMailKubun, PrintHeaderHyoji, TutyoSyusei, MeishiKyuVersionRiyo
Dim NatsuinRiyo, TozaHikidashiFurikomiKogitteHituyo, TegataSyusei
Dim SyohinCheck, GenbutsuCheck, UnsohiSeikyusyoKyuVersionRiyo
Dim SyohinNyusyukkoSeikousei, SyohinKaihatukaRiyo
Dim KitakuSokoRiyo
Dim EnshuKubun
Dim WebCollaboRiyo
Dim KouriHanbaiRiyo
Dim ExchangeRateRiyo
Dim GenkaKaikeiRiyo
Dim KouriBottun
Dim ShiireUriageJyuHasshin
Dim ShiireUriageSyoruiHikae
Dim SoufuzumiTegataHyoji
Dim SoufuzumiKogitteHyoji
Dim SoufuzumiRyoshushoHyoji
Dim Jissenbi
Dim InputShiwaketyoKyuVersionRiyo
Dim JitsuinRiyo
Dim UkeshoKakunin
Dim SenpoHitsuyo
Dim ShukkoUkeshoHitsuyo
Dim AiteShukkoHitsuyo
Dim JishaZaikoHitsuyo
Dim KichoCheck
Dim HyojunTankaHyoji
Dim CheckLink
Dim KishusetteiRiyo
Dim KurikoshiEnshuCD
Dim KurikoshiEnshuMei
Dim DefShain(3)
'数値文字変換チェック用
Dim NumChrCheck
NumChrCheck = ""
RouteType = Request("RouteType")
KouriBottun = Request("KouriBottun")
DbEnshuCD = Request("DbEnshuCD")
EnshuCD = LCase(Request("EnshuCD"))
EnshuID = Request("EnshuID")
EnshuPassword = Request("EnshuPassword")
JidoBangoDenpyo = Request("JidoBangoDenpyo")
JidoBangoShiireUriageSyorui = Request("JidoBangoShiireUriageSyorui")
JidoBangoGinkoSyorui = Request("JidoBangoGinkoSyorui")
JidoBangoTegata = Request("JidoBangoTegata")
JidoBangoRyosyusyo = Request("JidoBangoRyosyusyo")
RiyoMailKubun = Request("RiyoMailKubun")
PrintHeaderHyoji = Request("PrintHeaderHyoji")
TutyoSyusei = Request("TutyoSyusei")
MeishiKyuVersionRiyo = Request("MeishiKyuVersionRiyo")
NatsuinRiyo = Request("NatsuinRiyo")
TozaHikidashiFurikomiKogitteHituyo = Request("TozaHikidashiFurikomiKogitteHituyo")
TegataSyusei = Request("TegataSyusei")
KichoCheck = Request("KichoCheck")
SyohinCheck = Request("SyohinCheck")
GenbutsuCheck = Request("GenbutsuCheck")
UnsohiSeikyusyoKyuVersionRiyo = Request("UnsohiSeikyusyoKyuVersionRiyo")
SyohinNyusyukkoSeikousei = Request("SyohinNyusyukkoSeikousei")
SyohinKaihatukaRiyo = Request("SyohinKaihatukaRiyo")
KitakuSokoRiyo = Request("KitakuSokoRiyo")
EnshuKubun = Request("EnshuKubun")
WebCollaboRiyo = Request("WebCollaboRiyo")
KouriHanbaiRiyo = Request("KouriHanbaiRiyo")
ExchangeRateRiyo = Request("ExchangeRateRiyo")
GenkaKaikeiRiyo = Request("GenkaKaikeiRiyo")
ShiireUriageJyuHasshin = Request("ShiireUriageJyuHasshin")
ShiireUriageSyoruiHikae = Request("ShiireUriageSyoruiHikae")
SoufuzumiTegataHyoji = Request("SoufuzumiTegataHyoji")
SoufuzumiKogitteHyoji = Request("SoufuzumiKogitteHyoji")
SoufuzumiRyoshushoHyoji = Request("SoufuzumiRyoshushoHyoji")
Jissenbi = Request("Jissenbi")
If Jissenbi <> "" Then
Jissenbi = "'" & Jissenbi & "'"
Else
Jissenbi = "null"
End If
InputShiwaketyoKyuVersionRiyo = Request("InputShiwaketyoKyuVersionRiyo")
JitsuinRiyo = Request("JitsuinRiyo")
UkeshoKakunin = Request("UkeshoKakunin")
SenpoHitsuyo = Request("SenpoHitsuyo")
ShukkoUkeshoHitsuyo = Request("ShukkoUkeshoHitsuyo")
AiteShukkoHitsuyo = Request("AiteShukkoHitsuyo")
JishaZaikoHitsuyo = Request("JishaZaikoHitsuyo")
HyojunTankaHyoji = Request("HyojunTankaHyoji")
CheckLink = Request("CheckLink")
KishusetteiRiyo = Request("KishusetteiRiyo")
KurikoshiEnshuCD = Request("KurikoshiEnshuCD")
KurikoshiEnshuMei = Request("KurikoshiEnshuMei")
NumChrCheck = NumChrCheck & KurikoshiEnshuMei
DefShain(1) = Request("DefShain1")
NumChrCheck = NumChrCheck & DefShain(1)
DefShain(2) = Request("DefShain2")
NumChrCheck = NumChrCheck & DefShain(2)
DefShain(3) = Request("DefShain3")
NumChrCheck = NumChrCheck & DefShain(3)
If KitakuSokoRiyo = "1" Then
AiteShukkoHitsuyo = "1"
JishaZaikoHitsuyo = "1"
End If
'数値文字変換チェック
If Not(NumChrReject(NumChrCheck)) Then
Exit Sub
End If
'繰越先演習作成の場合
If KurikoshiEnshuMei <> "" Then
Dim EnshuCDAry
ReDim EnshuCDAry(0)
'演習存在チェック&配列作成
Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 2"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("演習名称") = KurikoshiEnshuMei Then
Response.Write("この演習名称はすでに登録済みです。
")
Response.Write("この演習を利用する場合は演習一覧メニューから選択してください。
")
Response.Write("戻る")
Exit Sub
End If
ReDim PreServe EnshuCDAry(UBound(EnshuCDAry) + 1) '配列+1
EnshuCDAry(UBound(EnshuCDAry)) = "" & Content.Fields("演習CD")
Content.MoveNext
Loop
KurikoshiEnshuCD = ""
Dim TmpCnt
Dim TmpCnt2
For TmpCnt = 0 To 999
Dim SonzaiFlg
SonzaiFlg = 0
For TmpCnt2 = 1 To UBound(EnshuCDAry)
'演習名称の左9桁+採番3桁の演習の存在チェック
If Left(EnshuCD, 9) & Right("00" & TmpCnt, 3) = EnshuCDAry(TmpCnt2) Then
SonzaiFlg = 1
Exit For
End If
Next
If SonzaiFlg = 0 Then
'存在しなければ代入
KurikoshiEnshuCD = Left(EnshuCD, 9) & Right("00" & TmpCnt, 3)
Exit For
End If
Next
If KurikoshiEnshuCD = "" Then
'例外対策
Response.Write("ナンバリング制約により演習が新規作成出来ませんでした。
")
Response.Write("戻る")
Exit Sub
End If
'期末繰越先演習作成
Dim FromYmd
Dim ToYmd
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuKubun = Content.Fields("演習区分")
FromYmd = Content.Fields("会計開始日")
ToYmd = Content.Fields("会計終了日")
End If
FromYmd = DateAdd("d", 1, ToYmd) '会計終了日の翌日が会計開始日
ToYmd = DateAdd("d", -1, DateAdd("yyyy", 1, FromYmd)) '会計開始日の1年後の前日が会計終了
Query = "exec SPM演習登録期末繰越先 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & EnshuKubun & "'"
Query = Query & ", '" & KurikoshiEnshuCD & "', '" & KurikoshiEnshuMei & "', '" & FromYmd & "', '" & ToYmd & "'"
Set Content = OpenQuery(Query)
End If
If JidoBangoDenpyo = "" Then JidoBangoDenpyo = "0" End If
If JidoBangoShiireUriageSyorui = "" Then JidoBangoShiireUriageSyorui = "0" End If
If JidoBangoGinkoSyorui = "" Then JidoBangoGinkoSyorui = "0" End If
If JidoBangoTegata = "" Then JidoBangoTegata = "0" End If
If JidoBangoRyosyusyo = "" Then JidoBangoRyosyusyo = "0" End If
If TozaHikidashiFurikomiKogitteHituyo = "" Then TozaHikidashiFurikomiKogitteHituyo = "0" End If
If MeishiKyuVersionRiyo = "" Then MeishiKyuVersionRiyo = "0" End If
If KitakuSokoRiyo = "" Then KitakuSokoRiyo = "0" End If
If WebCollaboRiyo = "" Then WebCollaboRiyo = "0" End If
If KouriHanbaiRiyo = "" Then KouriHanbaiRiyo = "0" End If
If ExchangeRateRiyo = "" Then ExchangeRateRiyo = "0" End If
If GenkaKaikeiRiyo = "" Then GenkaKaikeiRiyo = "0" End If
If ShiireUriageJyuHasshin = "" Then ShiireUriageJyuHasshin = "0" End If
If ShiireUriageSyoruiHikae = "" Then ShiireUriageSyoruiHikae = "0" End If
If InputShiwaketyoKyuVersionRiyo = "" Then InputShiwaketyoKyuVersionRiyo = "0" End If
If JitsuinRiyo = "" Then JitsuinRiyo = "0" End If
If UkeshoKakunin = "" Then UkeshoKakunin = "0" End If
If SenpoHitsuyo = "" Then SenpoHitsuyo = "0" End If
If ShukkoUkeshoHitsuyo = "" Then ShukkoUkeshoHitsuyo = "0" End If
If AiteShukkoHitsuyo = "" Then AiteShukkoHitsuyo = "0" End If
If JishaZaikoHitsuyo = "" Then JishaZaikoHitsuyo = "0" End If
If CheckLink = "" Then CheckLink = "0" End If
If KishusetteiRiyo = "" Then KishusetteiRiyo = "3" End If
'入庫時相手出庫必要・出庫時在庫必要の両方が1なら商品入出庫整合性利用も1にする(寄託処理はそのままにするため)
If AiteShukkoHitsuyo = "1" And JishaZaikoHitsuyo = "1" Then
SyohinNyusyukkoSeikousei = "1"
End If
Query = "exec SPM演習更新4 '" & GB_SystemCD & "'," & "'" & EnshuCD & "'"
Query = Query & ",'" & EnshuID & "'"
Query = Query & ",'" & EnshuPassword & "'"
Query = Query & ",'" & JidoBangoDenpyo & "'"
Query = Query & ",'" & JidoBangoShiireUriageSyorui & "'"
Query = Query & ",'" & JidoBangoGinkoSyorui & "'"
Query = Query & ",'" & JidoBangoTegata & "'"
Query = Query & ",'" & JidoBangoRyosyusyo & "'"
Query = Query & ",'" & RiyoMailKubun & "'"
Query = Query & ",'" & PrintHeaderHyoji & "'"
Query = Query & ",'" & MeishiKyuVersionRiyo & "'"
Query = Query & ",'" & NatsuinRiyo & "'"
Query = Query & ",'" & KichoCheck & "'"
Query = Query & ",'" & SyohinCheck & "'"
Query = Query & ",'" & GenbutsuCheck & "'"
Query = Query & ",'" & UnsohiSeikyusyoKyuVersionRiyo & "'"
Query = Query & ",'" & SyohinKaihatukaRiyo & "'"
Query = Query & ",'" & KitakuSokoRiyo & "'"
Query = Query & ",'" & WebCollaboRiyo & "'"
Query = Query & ",'" & ExchangeRateRiyo & "'"
Query = Query & ",'" & KouriHanbaiRiyo & "'"
Query = Query & ",'" & GenkaKaikeiRiyo & "'"
Query = Query & ",'" & SoufuzumiTegataHyoji & "'"
Query = Query & ",'" & SoufuzumiKogitteHyoji & "'"
Query = Query & ",'" & SoufuzumiRyoshushoHyoji & "'"
Query = Query & ",'" & InputShiwaketyoKyuVersionRiyo & "'"
Query = Query & ",'" & JitsuinRiyo & "'"
Query = Query & ",'" & KurikoshiEnshuCD & "'"
Query = Query & ",'" & AiteShukkoHitsuyo & "'"
Query = Query & ",'" & JishaZaikoHitsuyo & "'"
Query = Query & ",'" & HyojunTankaHyoji & "'"
Query = Query & ",'" & CheckLink & "'"
Query = Query & ",'" & KishusetteiRiyo & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
If Content.Fields.Count > 0 Then
rsts = Content.Fields(0)
End If
Call Application.Lock()
Query = " "
Query = Query & " DELETE FROM TDA社員M "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Set Content = OpenQuery(Query)
Dim SCnt
For SCnt = 1 To 3
If DefShain(SCnt) <> "" Then
Query = " "
Query = Query & " INSERT INTO TDA社員M (システムCD, 演習CD, 社員CD, 氏名) "
Query = Query & " VALUES ('" & GB_SystemCD & "', '" & EnshuCD & "', " & SCnt & ", '" & DefShain(SCnt) & "') "
Set Content = OpenQuery(Query)
End If
Next
Call Application.Unlock()
Session(HomeAlias & "EnshuCD") = EnshuCD
Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD)
Session(HomeAlias & "GakuseiNo") = EnshuID
Session(HomeAlias & "EnshuID") = UCase(EnshuID)
Session(HomeAlias & "EnshuPassword") = UCase(EnshuPassword)
' 2007.01.29 小売販売設定のボタンが押された場合の対応
If KouriBottun = "1" Then
Response.Redirect("fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType)
Else
Response.Redirect("fm_enshu4_view.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType)
End If
End Sub
%>