<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim ShowDel ShowDel = Request("ShowDel") Dim SenpoFlg SenpoFlg = Request("SenpoFlg") %> <% = HtmlHeader("") %> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "寄託契約書", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s4.asp')", "寄託契約", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) ElseIf ShowDel = 1 Then ' Response.Write(HttpL3_2("削除済みを非表示", "tblbtn( 'fk_kitakukeiyaku_ichiran.asp?SenpoFlg=" & SenpoFlg & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Else ' Response.Write(HttpL3_2("削除済みを表示", "tblbtn( 'fk_kitakukeiyaku_ichiran.asp?SenpoFlg=" & SenpoFlg & "&ShowDel=1')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("寄託契約" , "")) %>

<% If SenpoFlg = "1" Then %> <% Else %> <% End If %>

申入れ日

取引先

返信

発信

<% Dim Query Dim Content Dim ii, jj ii = 0 Query = "exec SPK契約書一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'XK', 'R'" '自社が乙の寄託契約書一覧 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Dim bShow bShow = 0 If ShowDel = 1 Then bShow = 1 End If If ShowDel <> 1 And Content.Fields("削除フラグ") <> 1 Then bShow = 1 End If If bShow = 1 Then Dim Torihikisaki Torihikisaki = ConvKaisyaMeisyo(Content.Fields("作成会社CD")) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If SenpoFlg = "1" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If ii = ii + 1 Response.Write("") End If Content.MoveNext Loop For jj = ii To 35 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>

") If Content.Fields("削除フラグ") = 1 Then Response.Write("x") End If Response.Write("	" & Content.Fields("処理日") & "	" & Torihikisaki & "	") Response.Write(ConvFlagMeisyo(Content.Fields("返信フラグ"), 2)) Response.Write("	") Response.Write(ConvFlagMeisyo(Content.Fields("発行フラグ"), 2)) Response.Write("

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