
<!-- #include file="../../../include.asp" -->
<!-- #include file="../../../user/bk/shiireuriage/fd_kitaku_syukko_view_main_in.asp" -->
<%
'<!--
'################################################
'	名称	：仕入売上書類表示
'	作成日：2002/9/10
'	作成者：山崎　貴史
'	目的　：仕入売上書類画面を表示する。
'	概要	：
'	 <<表示>>
'################################################
'-->
'
%>

<%
main()

Sub main()

	Dim SenpoFlg                                   '先方フラグ

	Dim SakuseiKaisyaCD                            '作成会社CD
	Dim UnsoGaisyaCD                               '運送会社CD
	Dim BunsyoSyuruiCD                             '文書種類CD
	Dim BunsyoNaiyoCD                              '文書内容CD
	Dim SenpoTmpBunsyoSyuruiCD                     '先方一時文書種類CD
	Dim DbSenpoBunsyoNaiyoCD                       'DB先方文書内容CD
	Dim Syoribi                                    '処理日
	Dim SenpoSyoribi                               '先方処理日
	Dim NonyuBasyoKubun                            '納入場所区分
	Dim NonyuKijitsu                               '納入期日
	Dim UntinSyogakariKubun                        '運賃諸掛区分
	Dim Unsohi                                     '運送費
	Dim UnsohiSeikyuFlg                            '運送費請求フラグ
	Dim Tekiyo                                     '摘要
	Dim ShiharaiHoho                               '支払方法
	Dim HasshinFlg                                 '発信フラグ
	
	Dim NonyuBasyoMeisyo                           '納入場所名称
	Dim UntinSyogakariMeisyo                       '運賃諸掛名称

	Dim NextBunsyoNaiyoCD                          '次の文書内容CD
	Dim PrevBunsyoNaiyoCD                          '前の文書内容CD
	Dim SyoruiMei                                  '書類名
	Dim Query
	Dim Content
	Dim Genkin                                     '現金
	Dim Toza                                       '当座
	Dim Shimei                                     '氏名
	Dim RouteType
	Dim SakujyoFlg                                 '削除フラグ
	Dim KaifuFlg                                   '開封フラグ

	Dim KaisyaCD1
	Dim AdminMailFlag

	Dim Kubun                                      '区分
	Dim SenpoSyoruiMei                             '先方書類名
	Dim Title                                      'タイトル
	Dim BunsyoKubun                                '文書区分
	Dim SyoriMongon                                '書類文言
	Dim SyoriMei                                   '処理名
	
	Dim BinType

	BinType = Request("BinType")
	RouteType = Request("RouteType")

	If Request("EnshuCD") <> "" Then
		EnshuCD = Request("EnshuCD")
	End If

	If Request("KaisyaCD") <> "" Then
		KaisyaCD = Request("KaisyaCD")
	End If
	
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Dim PageType
	PageType = Request("PageType")

'	If InStr(RouteType, "Mail") > 0 And GB_Gyosyu = "U" Then
'		Response.Redirect("/" & HomeAlias & "/user/bk/unso/syuko/fu_kitaku_syukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&RouteType=" & RouteType & "&PageType=" & PageType)
'	End If

	Syoribi = Request("Syoribi")

	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If

	If KaisyaCD <> SakuseiKaisyaCD Then
		SenpoFlg = "1"
	Else
		SenpoFlg = "0"
	End If

	AdminMailFlag = 0

	'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
	if Request("KaisyaCD1") <> "" then
		AdminMailFlag = 1
		KaisyaCD = Request("KaisyaCD1")
	end if
	
	Select Case BunsyoSyuruiCD
	Case "K1"
		SyoruiMei = "仕入返品伝票"
		Title = SyoruiMei
		BunsyoKubun = "S"
		SyoriMongon = "下記の通り返品致します。"
	Case "K2"
		SyoruiMei = "売上返品伝票"
		Title = SyoruiMei
		BunsyoKubun = "S"
		SyoriMongon = "下記の通り返品受付致します。"
	Case "K3"
		SyoruiMei = "領収書"
		Title = SyoruiMei
		BunsyoKubun = "S"
		SyoriMongon = "下記の通り領収致しました。"
	Case "KI"
		SyoruiMei = "見積依頼書"
		Title = SyoruiMei
		BunsyoKubun = "S"
		SyoriMongon = "下記の通り御見積り依頼申し上げます。"
	Case "KM"
		SyoruiMei = "見積書"
		Title = SyoruiMei
		BunsyoKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KI"
		SyoriMei = "見積"
		SyoriMongon = "下記の通り御見積り申し上げます。"
	Case "KC"
		SyoruiMei = "注文書"
		Title = SyoruiMei
		BunsyoKubun = "S"
		SenpoTmpBunsyoSyuruiCD = "KM"
		SyoriMongon = "下記の通り注文致します。"
	Case "KU"
'		SyoruiMei = "注文請書"
'		Title = SyoruiMei
'		BunsyoKubun = "U"
'		SenpoTmpBunsyoSyuruiCD = "KC"
'		SyoriMei = "請求"
'		SyoriMongon = "下記の通り注文をお請け致します。"
		SyoruiMei = "出庫依頼書"
		Title = SyoruiMei
		BunsyoKubun = "U"
		SyoriMongon = "下記の通り出庫依頼申し上げます。"
	Case "KK"
		SyoruiMei = "注文請書"
		Title = "先方注文請書確認"
		BunsyoKubun = "S"
		SyoriMongon = "下記の通り注文をお請け致します。"
	Case "KN"
		SyoruiMei = "納品請求書"
		Title = SyoruiMei
		BunsyoKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KK"
		SyoriMei = "請求"
		SyoriMongon = "下記の通り納品請求申し上げます。"
	Case "KB"
		SyoruiMei = "物品受領書"
		Title = SyoruiMei
		BunsyoKubun = "S"
		SenpoTmpBunsyoSyuruiCD = "KN"
		SyoriMongon = "下記の通り受領致しました"
	Case "KQ"
		SyoruiMei = "領収書"
		Title = SyoruiMei
		BunsyoKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KB"
		SyoriMongon = "下記の通り領収致しました"
	Case "KX"
		SyoruiMei =	"管理部買入申込書"
		Title = SyoruiMei
		BunsyoKubun = "X"
	Case "KY"
		SyoruiMei =	"管理部売渡申込書"
		Title = SyoruiMei
		BunsyoKubun = "1"
	Case "KV"
		SyoruiMei =	"管理部納品請求書"
		Title = SyoruiMei
		BunsyoKubun = "V"
		SenpoTmpBunsyoSyuruiCD = "KX"
	Case "KW"
		SyoruiMei =	"管理部売渡受付書"
		Title = SyoruiMei
		BunsyoKubun = "W"
		SenpoTmpBunsyoSyuruiCD = "KY"
	Case "KO"
		SyoruiMei =	"管理部宛物品受領書"
		Title = SyoruiMei
		BunsyoKubun = "X"
		SenpoTmpBunsyoSyuruiCD = "KV"
	Case "KP"
		SyoruiMei =	"管理部宛納品請求書"
		Title = SyoruiMei
		BunsyoKubun = "1"
		SenpoTmpBunsyoSyuruiCD = "KW"
	Case "KS"
		SyoruiMei = "出庫依頼書"
		Title = SyoruiMei
		BunsyoKubun = "U"
		SyoriMongon = "下記の通り出庫依頼申し上げます。"
	Case Else
	End Select


	If SyoruiMei = "" Then
		SyoruiMei = SenpoSyoruiMei
	End If


	If BunsyoNaiyoCD <> "" Then
		If SenpoFlg = "1" Then 
 			Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		Else
			If BunsyoSyuruiCD = "KK" Then
				Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', 'KU', '" & BunsyoNaiyoCD & "'"
			Else
				Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
			End If
		End If

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then
			HasshinFlg = Content.Fields("発行フラグ")
			SakujyoFlg = Content.Fields("削除フラグ")
			KaifuFlg = Content.Fields("開封フラグ")

		End If
	End If


%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 0;

	//印刷余白指定（ミリ指定）
	PrintTopMargin = 20;
	PrintLeftMargin = 0;
//	PrintTopMargin = 0;
//	PrintLeftMargin = 0;

-->
</SCRIPT>

<body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% = PrintScriptX %>

<%
Dim AutoFlg
If RouteType = "Hakushi" Then
	AutoFlg = -1
Else
	AutoFlg = 0
End If
%>
<% = KitakuSyukkoIrai(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1) %>
</body>
<% = HtmlFooter %>
<%
End Sub
%>