%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim QueryStr
Dim ShowDel
ShowDel = Request("ShowDel")
QueryStr = QueryStr & "&ShowDel=" & ShowDel
'繰越記入にトグルするためのフラグ(081021小野)
Dim Kimatsu
Kimatsu = Request("Kimatsu")
QueryStr = QueryStr & "&Kimatsu=" & Kimatsu
Dim DenpyoNo, Torihikibi, DenpyoTekiyo, OldDenpyoNo
Dim KashikataGokei, KarikataGokei
Dim TmpKanjyoCD(10)
Dim TmpKingaku(10)
Dim TmpTekiyoCD(10)
Dim TmpTekiyo(10)
Dim DenpyoSEQ(10)
Dim KanjyoCD(10)
Dim Kingaku1(10)
Dim Kingaku2(10)
Dim TekiyoCD(10)
Dim Tekiyo(10)
Dim AiteKanjyo(10)
Dim TaisyakuKubun(10)
Dim WK_KARI_CNT, WK_KARI_AC
Dim WK_KASI_CNT, WK_KASI_AC
Dim Query, w_TekiyoCD, w_Tekiyo, w_AiteKanjyo, ii, jj, KK
Dim BinType
Dim Content
'############################################### 1.データの引継ぎ
BinType = Request("BinType") '更新区別
DenpyoNo = Request("DenpyoNo")
OldDenpyoNo = Request("OldDenpyoNo")
Torihikibi = Request("Torihikibi")
DenpyoTekiyo = Request("DenpyoTekiyo")
KashikataGokei = Request("KashikataGokei")
KarikataGokei = Request("KarikataGokei")
QueryStr = QueryStr & "&BinType=" & BinType
QueryStr = QueryStr & "&DenpyoNo=" & DenpyoNo
QueryStr = QueryStr & "&OldDenpyoNo=" & OldDenpyoNo
QueryStr = QueryStr & "&Torihikibi=" & Torihikibi
QueryStr = QueryStr & "&DenpyoTekiyo=" & DenpyoTekiyo
QueryStr = QueryStr & "&KashikataGokei=" & KashikataGokei
QueryStr = QueryStr & "&KarikataGokei=" & KarikataGokei
For ii = 1 To 10
TmpKanjyoCD(ii) = Request("KanjyoCD" & CStr(ii))
TmpKingaku(ii) = ConvMoneyToInt(Request("Kingaku" & CStr(ii)))
TmpTekiyoCD(ii) = Request("TekiyoCD" & CStr(ii))
TmpTekiyo(ii) = Request("Tekiyo" & CStr(ii))
QueryStr = QueryStr & "&KanjyoCD" & ii & "=" & TmpKanjyoCD(ii)
QueryStr = QueryStr & "&Kingaku" & ii & "=" & TmpKingaku(ii)
QueryStr = QueryStr & "&TekiyoCD" & ii & "=" & TmpTekiyoCD(ii)
QueryStr = QueryStr & "&Tekiyo" & ii & "=" & TmpTekiyo(ii)
Next
Dim JidoBangoDenpyo
JidoBangoDenpyo = GetEnshuParam(EnshuCD, "自動番号伝票")
Dim SyokuchiKanjyoCD
If GB_Gyosyu <> "B" Then
Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','" & EnshuCD & "', 'DZ'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
SyokuchiKanjyoCD = Content.Fields("勘定CD")
Content.MoveNext
Loop
Else
Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','" & EnshuCD & "', 'DU'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
SyokuchiKanjyoCD = Content.Fields("勘定CD")
Content.MoveNext
Loop
End If
If BinType = "Del" Then
Query = "exec SPK伝票_削除 '" & GB_SystemCD & "',"
Query = Query & "'" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'D5'" '伝票区分 5:振替伝票
Query = Query & ",'" & DenpyoNo & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
Query = "exec SPM記帳チェック挿入伝票 '" & GB_SystemCD & "',"
Query = Query & " '" & EnshuCD & "'"
Query = Query & ",'" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Response.Redirect("fk_furikae_ichiran.asp?Kimatsu=" & Kimatsu & "&ShowDel=" & ShowDel)
Else
Dim AddMode
AddMode = 0
' If DenpyoNo = "" Then
If DenpyoNo = "" Or OldDenpyoNo = "" Then
AddMode = 1
End If
If JidoBangoDenpyo = "1" then
DenpyoNo = ""
End If
If AddMode = 1 Then
'Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','"
'重複チェックは全伝票通しで行う
Query = "exec SPK伝票_伝票取得全区分 '" & GB_SystemCD & "','"
Query = Query & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
' Response.Write("この伝票番号は存在しています。
" & vbCrLf)
' Response.Write("戻る" & vbCrLf)
Response.Write(SubmitHystoryBack(Replace(Request.ServerVariables("SCRIPT_NAME"), "_bin", "") & "?ErrorFlg=伝票番号が重複しています " & QueryStr))
Exit Sub
End If
End If
If AddMode = 1 Then
Query = "exec SPK伝票_振替伝票挿入 '" & GB_SystemCD & "',"
Else
Query = "exec SPK伝票_振替伝票更新 '" & GB_SystemCD & "',"
End If
Query = Query & " '" & EnshuCD & "'"
Query = Query & ",'" & KaisyaCD & "'"
Query = Query & ",'D5'" '伝票区分 振替伝票なので5
Query = Query & ",'" & DenpyoNo & "'"
If AddMode = 1 Then '追加モード
Else
Query = Query & ",'" & OldDenpyoNo & "'"
End If
Query = Query & ",'" & Torihikibi & "'"
Query = Query & ",'" & DenpyoTekiyo & "'"
If Request("seiri") = "ON" Then
If Kimatsu = "Kurikoshi" Then
Query = Query & ",10" '伝票処理区分
Else
Query = Query & ",9" '伝票処理区分
End If
Else
Query = Query & ",1" '伝票処理区分
End If
If Session(HomeAlias & "EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then
Query = Query & ",''"
Else
Query = Query & ",'" & GakuseiNo & "'"
End If
WK_KARI_CNT = 0
For ii = 1 To 9 Step 2
If TmpKanjyoCD(ii) <> "" Then
WK_KARI_CNT = WK_KARI_CNT + 1
If WK_KARI_CNT = 1 Then
WK_KARI_AC = TmpKanjyoCD(ii)
Else
WK_KARI_AC = SyokuchiKanjyoCD
End If
End If
Next
'貸方勘定の数とコードをチェック
WK_KASI_CNT = 0
For ii = 2 To 10 Step 2
If TmpKanjyoCD(ii) <> "" Then
WK_KASI_CNT = WK_KASI_CNT + 1
If WK_KASI_CNT = 1 Then
WK_KASI_AC = TmpKanjyoCD(ii)
Else
WK_KASI_AC = SyokuchiKanjyoCD
End If
End If
Next
jj = 1
KK = 2
For ii = 1 To 10
If TmpKanjyoCD(ii) <> "" Then
Select Case ii
Case 1, 3, 5, 7, 9
DenpyoSEQ(jj) = jj
KanjyoCD(jj) = TmpKanjyoCD(ii)
Kingaku1(jj) = TmpKingaku(ii)
Kingaku2(jj) = 0
TekiyoCD(jj) = TmpTekiyoCD(ii)
Tekiyo(jj) = TmpTekiyo(ii)
AiteKanjyo(jj) = WK_KASI_AC
TaisyakuKubun(jj) = "D"
jj = jj + 2
Case Else
DenpyoSEQ(KK) = KK
KanjyoCD(KK) = TmpKanjyoCD(ii)
Kingaku1(KK) = 0
Kingaku2(KK) = TmpKingaku(ii)
TekiyoCD(KK) = TmpTekiyoCD(ii)
Tekiyo(KK) = TmpTekiyo(ii)
AiteKanjyo(KK) = WK_KARI_AC
TaisyakuKubun(KK) = "C"
KK = KK + 2
End Select
End If
Next
For ii = 1 To 10
If KanjyoCD(ii) = "" Then
Query = Query & ",null,null,null,null,null,null,null,null"
Else
Query = Query & "," & DenpyoSEQ(ii) & ",'" & KanjyoCD(ii) & "'," & Kingaku1(ii) & "," & Kingaku2(ii) & ",'" & TaisyakuKubun(ii) & "'"
Query = Query & ",'" & TekiyoCD(ii) & "', '" & Tekiyo(ii) & "', '" & AiteKanjyo(ii) & "'"
End If
Next
End If
Set Content = OpenQuery(Query)
While Not Content Is Nothing
If Content.Fields.Count > 0 Then
DenpyoNo = Content.Fields(0)
End If
Set Content = Content.NextRecordset
Wend
Query = "exec SPM記帳チェック挿入伝票 '" & GB_SystemCD & "',"
Query = Query & " '" & EnshuCD & "'"
Query = Query & ",'" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Response.Redirect("fk_furikae_view.asp?Kimatsu=" & Kimatsu & "&DenpyoNo=" & DenpyoNo & "&ShowDel=" & ShowDel)
End Sub
%>