<% = AppTitle %>

<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Title, SenColor Title = "お買い上げ票" Dim ShowDel ShowDel = Request("ShowDel") Dim PageType PageType = Request("PageType") Dim RouteType RouteType = Request("RouteType") Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim BunsyoNaiyoCD BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") Dim Action Action = Request("Action") Dim DenpyoNo DenpyoNo = Request("DenpyoNo") If RouteType = "admin" Then EnshuCD = Request("EnshuCD") End If ' For Debug 'Response.Write("GB_SystemCD:" & GB_SystemCD & "
") 'Response.Write("EnshuCD:" & EnshuCD & "
") 'Response.Write("KaisyaCD:" & KaisyaCD & "
") 'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "
") 'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "
") 'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
") 'Response.Write("RouteType:" & RouteType & "
") %> <% = AppTitle %> <% 'RouteType = "ViewOnly" の定義を追加（070320小野） If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "販売部", "", "販売書類", "", "お買い上げ票", "", "", "", "", "")) ElseIf RouteType = "admin" Then Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "演習状況一覧" , "tblbtn( '/" & HomeAlias & "/admin/syokai/fm_jyokyo_ichiran.asp?EnshuCD=" & EnshuCD & "')", "小売販売", "", "", "", "", "", "", "")) Else Response.Write(HttpL1(2)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", Title, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf RouteType = "admin" Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'kh_kouri.asp?RouteType=" & RouteType & "&BunsyoSyuruiCD=HU&NyusyukoKubun=U')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4(Title, "一覧表示")) %>

<% If RouteType = "admin" Then %> <% Else %> <% End If %>

お買上日

伝票番号

生徒名

お客様名

摘　　　　要

<% ' 2006.11.28 [iiDef]を追加して、伝票番号を保存する(iiDefのあるＬＩＮＥは追加または変更したＬＩＮＥ） Dim Query Dim Content Dim ii, jj, iiDef ii = 0 iiDef = -1 If RouteType = "admin" Then Query = "exec SPK小売販売一覧取得_先生 '" & GB_SystemCD & "','" & EnshuCD & "'" Else Query = "exec SPK小売販売一覧取得_生徒 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "'" End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("削除フラグ") <> 1 Then '選択状態保持（070320小野） If Content.Fields("文書内容CD") = BunsyoNaiyoCD And Content.Fields("会社CD") = SakuseiKaisyaCD Then iiDef = ii End If 'RouteType="admin"の場合のみ会社CDを確保 If RouteType = "admin" Then KaisyaCD = Content.Fields("会社CD") End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If RouteType = "admin" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") End If Content.MoveNext Loop For jj = ii To 15 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If RouteType = "admin" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("") Next %>

") If Content.Fields("削除フラグ") = 1 Then Response.Write("x") End If Response.Write("	" & SetTimeYYYYMMDD(Content.Fields("買上日")) & "	" & Content.Fields("文書内容CD") & "	" & Content.Fields("学生氏名") & "	" & Content.Fields("客氏名") & "	" & Content.Fields("摘要") & "

<% = HtmlFooter %> <% End Sub %>