
<%
'<!--
'################################################
'	名称	：寄託出庫依頼処理
'	作成日	：2006/12/11
'	作成者	：鈴木
'	目的  	：寄託出庫依頼を表示する。
'	概要	：
'	履歴	：2007.07.06 期首在庫表示対応
'################################################
'-->
'
%>

<%

Function KitakuNyukoKakunin(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Page)

	Dim TorihikisakiCD                             '取引先CD
	Dim KitakuGaisyaCD                             '寄託会社CD
	Dim SenpoKitakuGaisyaCD                        '先方寄託会社CD
	Dim UnsoGaisyaCD                               '運送会社CD
	Dim UnsoGaisyaMei                              '運送会社名
	Dim SenpoBunsyoSyuruiCD                        '先方文書種類CD
	Dim SenpoBunsyoNaiyoCD                         '先方文書内容CD
	Dim Syoribi                                    '処理日
	Dim SenpoSyoribi                               '先方処理日
	Dim NonyuKijitsu                               '納入期日
	Dim UntinSyogakariKubun                        '運賃諸掛区分
	Dim Unsohi                                     '運送費
	Dim UnsohiSeikyuFlg                            '運送請求フラグ
	Dim Tekiyo                                     '摘要
	Dim ShiharaiHoho                               '支払方法
	Dim HasshinFlg                                 '発信フラグ
	Dim YukoFlg                                    '有効フラグ
	Dim Kakaku(99)		                               '標準単価
	Dim SyohinCD(99)	                               '商品コード
	Dim SyohinName(99)							                 '商品名称
	Dim Suryo(99)		                               '数量
	Dim Tanka(99)		                               '単価
	Dim MotoTanka(99)		                           '元単価
	Dim UnsoTanka(99)	                             '運送単価
	Dim Zaiko(99)		                               '在庫数量
	Dim GakuseiShimei							                 '学生氏名（係印）
	Dim SyoruiMei                                  '書類名
	Dim Query
	Dim Content
	Dim Shimei                                     '氏名
	Dim PageType
	Dim ZaikoTemp
	Dim ShijyoCD(99)                                '市場CD
	Dim SyohinNyusyukkoSeikousei

	'明細行数（期首在庫の印刷時は6以上になるため）
	Dim MaxDenpyoSEQ
	MaxDenpyoSEQ = 5
	If PrintFlg = 1 Then
		MaxDenpyoSEQ = 99
	End if
	Dim CntDenpyoSEQ
	CntDenpyoSEQ = 0

	Dim KitakuFrom								                 '寄託期間始
	Dim KitakuTo								                   '寄託期間終

'	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
'	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
'	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	
'	SyohinNyusyukkoSeikousei = GetEnshuParam(EnshuCD, "商品入出庫整合性利用")
	PageType = Request("PageType")

	'寄託会社取得
	Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KitakuGaisyaCD = "" & Content.Fields("寄託会社CD")
	End If

	Dim SenpoFlg
	SenpoFlg = 0
	If SenpoBunsyoNaiyoCD <> "" Then
		SenpoFlg = 1
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	TorihikisakiCD = Request("TorihikisakiCD")

	Dim HasshinMotoFlg
	HasshinMotoFlg = 0
	If InStr(RouteType, "SMail") > 0 Then
		HasshinMotoFlg = 1
	End If

	'SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD)
	SyoruiMei = "寄託入庫確認書"

'	If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then
	
		If InStr(RouteType, "SMail") > 0 Then	'送信元文書

			If GB_Gyosyu = "U" Then	'運送会社側
'				送信側倉庫会社は常に出庫依頼会社の出庫レコードを見る
				Query = "exec SPD入出庫取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD & "', '" & TorihikisakiCD & "', 'SU', '" & BunsyoNaiyoCD & "'"

			Else '管理部
'				送信側管理部は常に自社の出庫レコードを見る
				Query = "exec SPD入出庫取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', 'SU', '" & BunsyoNaiyoCD & "'"

			End If

		ElseIf InStr(RouteType, "RMail") > 0 Then
'			受信側は常に取引先の出庫レコードを見る（自社のレコードは入庫時に再採番されてしまうため）
			Query = "exec SPD入出庫取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD & "', '" & TorihikisakiCD & "', 'SU', '" & BunsyoNaiyoCD & "'"

		ElseIf SenpoFlg = 1 Then
			Query = "exec SPD入出庫取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"

		Else
			Query = "exec SPD入出庫取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"

		End If

'Response.Write(Query)

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then
		
			If SenpoFlg = 1 Then
				Syoribi = Content.Fields("先方処理日")
				SenpoSyoribi = Content.Fields("処理日")
			Else
				Syoribi = Content.Fields("処理日")
'				SenpoSyoribi = Content.Fields("先方処理日")
				SenpoSyoribi = Content.Fields("処理日")
			End If
'##### 2007.07.06 期首在庫表示対応
			Dim PageCnt
			PageCnt = 0
			Dim SkipCnt
			SkipCnt = Page * 5
			'印刷時は先頭から一括
			If PrintFlg = 1 Then
				SkipCnt = 0
			End If

			SakuseiKaisyaCD = Content.Fields("作成会社CD")
			TorihikisakiCD = Content.Fields("取引先CD")
			UnsoGaisyaCD = Content.Fields("運送会社CD")
'			KitakuGaisyaCD = Content.Fields("寄託会社CD")
			SenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD")
			YukoFlg = Content.Fields("有効フラグ")

			Do While Not(Content.BOF Or Content.EOF)
'##### 2007.07.06 期首在庫表示対応
				If PageCnt = SkipCnt Then
					Exit Do
				End If
				Content.MoveNext
				PageCnt = PageCnt + 1
			Loop
			DenpyoSEQ = 1

			Do While Not(Content.BOF Or Content.EOF)
				Dim DenpyoSEQ,PreDenpyoSEQ
'##### 2007.07.06 不具合対応	DenpyoSEQ = Content.Fields("入出庫SEQ")
				SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
				
				ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD")
				
				SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
				Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
				Suryo(DenpyoSEQ) = Content.Fields("数量")
				MotoTanka(DenpyoSEQ) = Content.Fields("単価")

				CntDenpyoSEQ = DenpyoSEQ
'				PageCnt = PageCnt + 1
				If DenpyoSEQ => MaxDenpyoSEQ Then
					Exit Do
				End If

				DenpyoSEQ = DenpyoSEQ + 1
				
				Content.MoveNext
			Loop

			If CntDenpyoSEQ < 5 Then
				CntDenpyoSEQ = 5
			End If

'##### ここまで


			If "" & YukoFlg = "1" And TorihikisakiCD <> "SJ4SEIZOZIES" Then
				SakuseiKaisyaCD = TorihikisakiCD
			End If


			Query = "SELECT TGC寄託在庫F.* FROM TGC寄託在庫F "
			Query = Query & " WHERE "
			Query = Query & " システムCD = '" & GB_SystemCD & "' AND "
			Query = Query & " 演習CD = '" & EnshuCD & "' AND "
			Query = Query & " 会社CD = '" & KitakuGaisyaCD & "' AND "
			Query = Query & " 作成会社CD = '" & SakuseiKaisyaCD & "' AND " '作成会社は取引先（寄託確認時に入庫レコードの作成会社と取引先を入れ替える修正に伴う変更）
			Query = Query & " 寄託依頼会社CD = '" & KaisyaCD & "' AND "
'			Query = Query & " 寄託受付番号 = '" & BunsyoNaiyoCD & "'"
			Query = Query & " 先方文書種類CD = 'SS' AND"
			Query = Query & " 先方文書内容CD = '" & BunsyoNaiyoCD & "'"
'Response.Write(Query)
'Exit Function
			Set Content = db.Execute(Query)
			If Not(Content.BOF Or Content.EOF) Then
				KitakuFrom = Content.Fields("寄託開始年月日")
				KitakuTo = Content.Fields("寄託保管期日")
			End If
			
		End If
		
'	End If

	Dim jj,tmps
	Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth
	SyohinMeisyo = "商品名称"

%>

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td align="CENTER" valign="<% If PrintFlg = 1 Then %>top<% Else %>middle<% End If %>">
		<%
			If PrintFlg = 1 Then
				Response.Write(PrintHeader(AutoFlg, ""))
			End if
		%>
			<table width="600" height="355" border="0" cellpadding="10" cellspacing="0" style="border:solid 1px #000000" bgcolor="#FFFFFF">
				<tr>
					<td height="355" align="CENTER" valign="BOTTOM">
						<table width="600" border="0" cellspacing="0" cellpadding="0" height="355">
							<tr>
								<td height="40" align="CENTER" valign="middle">
									<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"  height="30" width="580" class="tx1416">
										<tr>
											<td width="25%">
												<table border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1214">
														<td align="left">
															<table class="tx2224b" border="0" cellpadding="0" cellspacing="0" >
																<tr>
																	<td align="center" nowrap><%

																		If Len(SyoruiMei) < 8 Then
																			Response.Write(SetStringInsertSpace(SyoruiMei))
																		Else
																			Response.Write(SyoruiMei)
																		End If
																		
																	%></td>
																</tr>
															</table>
														</td>
													</tr>
												</table>
											</td>
											<td>　</td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td height="45" align="CENTER" valign="middle">
									<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"  height="140" width="580" class="tx1618">
										<tr>
											<td width="13%" height="20">入庫番号</td>
											<td width="41%" height="20">
												<input type="hidden" name="BunsyoNaiyoCD" size="20" readonly class="tbox2_ro" value="<% = BunsyoNaiyoCD %>"><% = BunsyoNaiyoCD %>
											<td width="13%" height="20">処 理 日</td>
											<td width="33%" height="20">
												<input type="hidden" name="Syoribi" size="16" readonly class="tbox2_ro" value="<% = Syoribi %>"><% = Syoribi %>
											</td>
										</tr>
										
										<tr>
											<td height="20">取 引 先</td>
											<td height="20">
												<input type="hidden" name="SakuseiKaisyaMei" size="20" readonly class="tbox2_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, SakuseiKaisyaCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, SakuseiKaisyaCD) %>
												<input type="hidden" name="SakuseiKaisyaCD" size="20" value="<% = SakuseiKaisyaCD %>">
											</td>
											<td height="20">納 入 日</td>
											<td height="20">
												<input type="hidden" name="SenpoSyoribi" size="15" readonly class="tbox2_ro" value="<% = SenpoSyoribi %>"><% = SenpoSyoribi %>
											</td>
										</tr>
										
										<tr>
											<td height="20">出荷倉庫</td>
											<td height="20">
												<input type="hidden" name="SenpoKitakuGaisyaMei" size="20" readonly class="tbox2_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, SenpoKitakuGaisyaCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, SenpoKitakuGaisyaCD) %>
												<input type="hidden" name="SenpoKitakuGaisyaCD" value="<% =SenpoKitakuGaisyaCD %>">
											</td>
											
											<td height="20">寄託期間</td>
											<td height="20">
												<input type="hidden" name="KitakuFrom" size="12" readonly class="tbox2_ro" value="<% = KitakuFrom %>"><% = KitakuFrom %>
												～
												<input type="hidden" name="KitakuTo" size="12" readonly class="tbox2_ro" value="<% = KitakuTo %>"><% = KitakuTo %>
											</td>
										</tr>

										<tr>
											<td height="20">納入場所</td>
											<td height="20">
												<input type="hidden" name="KitakuGaisyaMei" size="20" readonly class="tbox2_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, KitakuGaisyaCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, KitakuGaisyaCD) %>
												<input type="hidden" name="KitakuGaisyaCD" size="20" value="<% = KitakuGaisyaCD %>">
											</td>
											<td height="20" align="center"></td>
											<td height="20"></td>
										</tr>

										<tr>
											<td height="20">運送会社</td>
											<td height="20">
												<input type="hidden" name="UnsoGaisyaCD" size="20" readonly class="tbox2_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, UnsoGaisyaCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, UnsoGaisyaCD) %>
											</td>
											<td height="20" align="center"></td>
											<td height="20"></td>
										</tr>
										
									</table>
								</td>
							</tr>
							<tr>
								<td align="CENTER">

									<table width="580" height="180" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse; border:solid 2px #FFFFFF">
										<tr>
											<td width="100%" align="RIGHT">
												<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="580" bordercolor="#000000">
													<tr>
														<td height="30" valign="TOP">
															<table width="100%" height="30" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1618" bgcolor="#CCCCCC">
																<tr>
																	<td align="center">商品名称</td>
																	<td align="center" width="18%"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %></td>
																	<td align="center" width="17%">数　量</td>
																	<td align="center" width="18%">単　価</td>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td>
															<table width="100%" height="150" border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1618">
															<%
																Dim ii
																For ii = 1 to CntDenpyoSEQ
																	Response.Write("<tr>")
																	Response.Write("<td align='left'>" & ConvSyohinRyakuMeisyo(SyohinCD(ii)) & "<br></td>" & vbCrLf)
																	Response.Write("<td align='right' width='18%'>" & SetMoney(Kakaku(ii), false, true) & "<br></td>" & vbCrLf)
																	Response.Write("<td align='right' width='17%'>" & SetMoney(Suryo(ii), false, true) & "<br></td>" & vbCrLf)
																	Response.Write("<td align='right' width='18%'>" & SetMoney(MotoTanka(ii), false, true) & "<br></td>" & vbCrLf)
																	Response.Write("</tr>" & vbCrLf)
																Next
															%>
															</table>
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		<%
			If PrintFlg = 1 Then
				Response.Write(PrintFooter())
			End if
		%>
		</td>
	</tr>
</table>
<%
End Function
%>