<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/denpyo/fk_shiireuriage_view_main_in.asp" -->
<%
'<!-- 
'################################################
'	名称  :仕入・売上伝票照会	   
'	作成日:2002/8/30
'	作成者:川崎
'	目的 :仕入・売上伝票画面を表示する。
'	概要  :
'	 <<表示>>
'	・伝票番号の伝票を表示
'################################################
'-->
'
%>

<%
main()

Sub main()
	Dim DenpyoNo, Torihikibi, DenpyoTekiyo,TorihikisakiCD		'伝票番号、取引日、伝票摘要、取引先CD
	Dim DenpyoSyoriKubun,TujyoHenpinKubun,PageType			'伝票処理区分、通常返品区分、ページタイプ
	Dim SyohinCD(5)						   	'商品コード
	Dim SyohinName(5)						'商品名称
	Dim Kakaku(5)							'標準価格
	Dim Suryo(5)							'数量
	Dim Tanka(5)							'単価
	Dim Kingaku(5)							'金額
	Dim GokeiKingaku						'合計
	Dim SyohizeiKingaku						'消費税
	Dim ZeikomiKingaku						'税込み金額
	Dim KarikataGokei, KashikataGokei		   		'借方合計、貸方合計
	
	Dim Query
	Dim Content
	Dim Genkin, Toza
	Dim Amend
	Dim Shimei
	Dim GakuseiShimei 
	Dim RouteType
	Dim SakujyoFlg 
	Dim DenpyoKubun

	SakujyoFlg = 0	
	RouteType = Request("RouteType")
	DenpyoNo = Request("DenpyoNo")
	PageType = Request("PageType")

	Dim ShowDel
	ShowDel = Request("ShowDel")

	Dim title
   	If PageType = "Shiire" Then
		title = "仕入伝票"
		DenpyoKubun = "D3"
	Else
		title = "売上伝票" 
		DenpyoKubun = "D4"
	End If
		
	If DenpyoNo <> "" Then
	
		'///////  1.「伝票」ヘッダ部のデータを取得。
		If PageType = "Shiire" Then
			Query = "exec SPK伝票_仕入伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
		Else
			Query = "exec SPK伝票_売上伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
		End If
		Set Content = OpenQuery(Query)
	
		If Not(Content.BOF Or Content.EOF) Then
	
			SakujyoFlg = Content.Fields("削除フラグ")
			Torihikibi = Content.Fields("取引日")
		End IF


		
	End If
 
 
	Dim NextDenpyoNo, PrevDenpyoNo

	Query = "exec SPK伝票次番号 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoKubun & "', '1', '" & Torihikibi & "', '" & DenpyoNo & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		NextDenpyoNo = Content.Fields("伝票番号")
	End If

	Query = "exec SPK伝票前番号 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoKubun & "', '1', '" & Torihikibi & "', '" & DenpyoNo & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		PrevDenpyoNo = Content.Fields("伝票番号")
	End If		
					
	Dim NextTitle, NextCmd, PrevTitle, PrevCmd
	If NextDenpyoNo <> "" Then
		NextTitle = "次へ"
		NextCmd = "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_shiireuriage_view.asp?PageType=" & PageType & "&RouteType=" & RouteType & "&DenpyoNo=" & NextDenpyoNo & "&ShowDel=" & ShowDel & "')"
	End If
	If PrevDenpyoNo <> "" Then
		PrevTitle = "前へ"
		PrevCmd = "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_shiireuriage_view.asp?PageType=" & PageType & "&RouteType=" & RouteType & "&DenpyoNo=" & PrevDenpyoNo & "&ShowDel=" & ShowDel & "')"
	End If			

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--
<form OnKeyDown="FormKeyDown(this)"   name="form1" method="POST" action="test1.asp">
-->

<% 
	If InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HtmlDesign(4))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(2))

	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')", "経理部", "", "伝票", "", Title, "", "", "", "", ""))		
	ElseIf PackageMode = 1 Then
		Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", Title, "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "Hakushi") > 0 Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "白紙帳票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s42.asp')", Title, "", "", ""))
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", Title, "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_shiireuriage.asp?PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "", ""))
	End If	

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))	

	If SakujyoFlg = "0" And RouteType <> "ViewOnly" And InStr(RouteType, "Hakushi") < 1 Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_shiireuriage.asp?PageType=" & PageType & "&DenpyoNo=" & DenpyoNo & "&ShowDel=" & ShowDel & "')", "削除", "SakujyoBtn()", "", "", "", ""))	
	Else	'削除済みもしくは、InStr(RouteType, "ViewOnly") > 0
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	End If

	If InStr(RouteType, "Hakushi") > 0 Then
		Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0  Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=受信文書')", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0  Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=発信文書')", "", "", "", "", "", "", "", ""))
	ElseIf InStr(RouteType, "ViewOnly") > 0 Then
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fk_shiireuriage_ichiran.asp?DenpyoNo=" & DenpyoNo & "&RouteType=" & RouteType & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", "", "", ""))
	Else
		Response.Write(HttpL3_2("追加", "tblbtn( 'fk_shiireuriage.asp?PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "一覧表示", "tblbtn( 'fk_shiireuriage_ichiran.asp?DenpyoNo=" & DenpyoNo & "&RouteType=" & RouteType & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", NextTitle, NextCmd, PrevTitle, PrevCmd, "", ""))
	End If

	If InStr(RouteType, "Hakushi") > 0 Then
		Response.Write(HttpL4(Title, ""))
	Else
		Response.Write(HttpL4(Title, "照会"))
	End If

%>

							  
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
	AutoFlg = -1
Else
	AutoFlg = 0
End If
%>
<% = DenpyoShiireUriage(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 0) %>
</div>
<!--
</form>
-->

</body>
<SCRIPT LANGUAGE="JavaScript">

function SakujyoBtn() {
	if (confirm("この操作は元に戻す事が出来ません。\r\n削除をしてもよろしいですか?")) {
		tblbtn('/<% = HomeAlias %>/user/bk/denpyo/fk_shiireuriage_bin.asp?PageType=<% = PageType %>&DenpyoNo=<% = DenpyoNo %>&BinType=Del&ShowDel=<% = ShowDel %>'); 
	}
}
</SCRIPT>
<% = HtmlFooter %>
</html>
<%
End Sub
%>