
<%
'<!--
'################################################
'	名称	：仕入売上書類表示
'	作成日：2002/9/10
'	作成者：山崎　貴史
'	目的　：仕入売上書類画面を表示する。
'	概要	：
'	 <<表示>>
'################################################
'-->
'
%>

<%

Function KitakuSyukkoIrai(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg)

'	Dim SakuseiKaisyaCD                            '作成会社CD
	Dim TorihikisakiCD                             '取引先CD
	Dim KitakuGaisyaCD                             '寄託会社CD
	Dim SenpoKitakuGaisyaCD                        '先方寄託会社CD
	Dim UnsoGaisyaCD                               '運送会社CD
	Dim UnsoGaisyaMei                              '運送会社名
'	Dim BunsyoSyuruiCD                             '文書種類CD
'	Dim BunsyoNaiyoCD                              '文書内容CD
	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 Kakaku(6)		                               '標準単価
	Dim SyohinCD(6)	                               '商品コード
	Dim SyohinName(6)							                 '商品名称
	Dim Suryo(6)		                               '数量
	Dim Tanka(6)		                               '単価
	Dim UnsoTanka(6)	                             '運送単価
	Dim Zaiko(6)		                               '在庫数量
	Dim GakuseiShimei							                 '学生氏名（係印）
	Dim SyoruiMei                                  '書類名
	Dim Query
	Dim Content
	Dim Shimei                                     '氏名
	Dim PageType
	Dim ZaikoTemp
	Dim ShijyoCD(5)                                '市場CD
	Dim SyohinNyusyukkoSeikousei

	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	
	SyohinNyusyukkoSeikousei = GetEnshuParam(EnshuCD, "商品入出庫整合性利用")
	PageType = Request("PageType")

	Dim SenpoFlg
'	SenpoFlg = 0
'	If SenpoBunsyoNaiyoCD <> "" Then
'		SenpoFlg = 1
'	End If
	If KaisyaCD <> SakuseiKaisyaCD Then
		SenpoFlg = 1
	Else
		SenpoFlg = 0
	End If

	Dim BinType
	BinType = Request("BinType")
	Dim RouteType
	RouteType = Request("RouteType")

	'SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD)
	If BunsyoSyuruiCD = "SX" Then
		SyoruiMei = "寄託確認"
	Else
		SyoruiMei = "寄託出庫依頼"
	End If

	If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then
	
		If SenpoFlg = 1 Then
		
			Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
'			Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
			
		Else
		
			Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
			
		End If

'Response.Write(Query)

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then
		
			If SenpoFlg = 1 Then
				TorihikisakiCD = Content.Fields("取引先CD")
				Syoribi = Content.Fields("処理日")
				SenpoSyoribi = Content.Fields("先方処理日")
			Else
				TorihikisakiCD = Content.Fields("取引先CD")
				Syoribi = Content.Fields("処理日")
				SenpoSyoribi = Content.Fields("先方処理日")
			End If
			
			UnsoGaisyaCD = Content.Fields("運送会社CD")
			KitakuGaisyaCD = Content.Fields("寄託会社CD")
			SenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD")
			

			Do While Not(Content.BOF Or Content.EOF)
				Dim DenpyoSEQ,PreDenpyoSEQ
				DenpyoSEQ = Content.Fields("文書内容SEQ")
				SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
				
				Zaiko(DenpyoSEQ) = ConvSyohinZaiko(Content.Fields("商品CD"))

				ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD")
				
				SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
				Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
				Suryo(DenpyoSEQ) = Content.Fields("数量")
				Tanka(DenpyoSEQ) = Content.Fields("単価")
				
				Content.MoveNext
			Loop
		End If
	End If

	Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', 'KS', '" & BunsyoNaiyoCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		HasshinFlg = Content.Fields("発行フラグ")
	End If

	Dim jj,tmps
	Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth
	
	SyohinMeisyo = "商品略名称"
	SyohinMeisyoListWidth = "width: 120;"
	ShijyoListWidth = "width:80"
	If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then
		SyohinMeisyo = "商品略名称"
		SyohinMeisyoListWidth = "width: 120;"
		ShijyoListWidth = "width:80"
	Else
		SyohinMeisyo = "商品名称"
	End If
	

	Dim Kitakuriyou
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kitakuriyou = Content.Fields("寄託倉庫利用") 
	End If



	'何らかの理由で仕入売上書類Fの寄託会社・先方寄託会社にNULLがセットされてしまうことがあるので保険（091225）
	If "" & KitakuGaisyaCD = "" Then
		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
	End If
	If "" & SenpoKitakuGaisyaCD = "" Then
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			SenpoKitakuGaisyaCD = Content.Fields("寄託会社CD")
		End If
	End If



	'TTX文書F開封処理
'	If InStr(RouteType, "MailOnly") > 0 Then
		If BunsyoNaiyoCD <> "" Then
			If GB_JisyaFlag <> "" Then	'運用管理・演習管理（自社フラグ無し）では開封フラグを立てない（061213小野）
				Query = "exec SPD入出庫書類開封2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
				Set Content = OpenQuery(Query)
			End If
		End If
'	End If

%>

<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="168" width="580" class="tx1618">
										<tr>
											<td width="13%" height="20">出庫番号</td>
											<td width="51%" height="20">
												<input type="hidden" name="BunsyoNaiyoCD" size="15" value="<% = BunsyoNaiyoCD %>"><% = BunsyoNaiyoCD %>
											</td>
											<td width="13%" height="20">処 理 日</td>
											<td width="23%" height="20">
												<% If HasshinFlg = 1 Or BinType = "Hasshin" Or  SenpoFlg = 1 Then %>
													<input type="hidden" name="Syoribi" size="15" readonly class="tbox2_ro" value="<% = Syoribi %>"><% = Syoribi %>
												<% Else %>
													<input type="text" name="Syoribi" size="16" value="" onBlur="SetDate(this, 1, true)" class="tbox2">
												<% End If %>
											</td>
										</tr>

										<tr>
											<td height="20">取引先</td>
											<td height="20">
												<% If BunsyoNaiyoCD <> "" Then %>
													<input type="hidden" name="TorihikisakiMei" size="15" readonly class="tbox2_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, TorihikisakiCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, TorihikisakiCD) %>
													<input type="hidden" name="TorihikisakiCD" size="15" value="<% = TorihikisakiCD %>">
												<% Else %>
												
												
															<select size="1" name="TorihikisakiCD" class="tbox2" style="width:105" OnChange="SetSenpoKitakuGaisya();">

																<option value="">　　　　</option>
																<%
																		Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
																	Set Content = OpenQuery(Query)

																		Do While Not(Content.BOF Or Content.EOF)

																			'If ((BunsyoKubun = "X" OR BunsyoKubun = "1") AND Content.Fields("業種CD") = "K") OR ((BunsyoKubun <> "X" AND BunsyoKubun <> "1") AND Content.Fields("業種CD") = "S") Then
																			If (Content.Fields("業種CD") = "S") Then
																				Dim TmpKaisyaCD
																				TmpKaisyaCD = Content.Fields("会社CD")
																				If TmpkaisyaCD <> KaisyaCD Then
																					Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																					If Content.Fields("会社CD") = TorihikisakiCD Then
																						Response.Write(" selected")
																					End If
																					Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
																				End If
																			End If
																			Content.MoveNext
																		Loop
																%>

															</select>
												
												
												<% End If %>
											</td>
											<td height="20">注文請日</td>
											<td height="20">
												<% If BunsyoNaiyoCD <> "" Then %>
													<input type="hidden" name="SenpoSyoribi" size="15" readonly class="tbox2_ro" value="<% = SenpoSyoribi %>"><% = SenpoSyoribi %>
												<% Else %>
													<input type="text" name="SenpoSyoribi" size="16" value="" onBlur="SetDate(this, 1, true)" class="tbox2">
												<% End If %>
											</td>
										</tr>

										<tr>
											<td height="20">依頼会社</td>
											<td height="20">

													<input type="hidden" name="IraiGaisyaMei" size="15" readonly class="tbox2_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, SakuseiKaisyaCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, SakuseiKaisyaCD) %>
													<input type="hidden" name="IraiGaisyaCD" value="<% = SakuseiKaisyaCD %>">

											</td>
											<td height="20" align="center"></td>
											<td height="20"></td>
										</tr>

										<tr>
											<td height="20">寄託倉庫</td>
											<td height="20">

													<input type="hidden" name="KitakuGaisyaMei" size="15" readonly class="tbox2_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, KitakuGaisyaCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, KitakuGaisyaCD) %>
													<input type="hidden" name="KitakuGaisyaCD" value="<% =KitakuGaisyaCD %>">

											</td>
											<td height="20" align="center"></td>
											<td height="20"></td>
										</tr>

										<tr>
											<td height="20">納入場所</td>
											<td height="20">
												<% If BunsyoNaiyoCD <> "" Then %>
<!--
													<input type="hidden" name="SenpoKitakuGaisyaCD" size="15" readonly class="tbox2_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, SenpoKitakuGaisyaCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, SenpoKitakuGaisyaCD) %>
-->
													<input type="hidden" name="SenpoKitakuGaisyaCD" size="15" readonly class="tbox2_ro" value="<% = SenpoKitakuGaisyaCD %>"><% =ConvKaisyaMeisyoDX(EnshuCD, SenpoKitakuGaisyaCD) %>
												<% Else %>
																
																<input type="text" name="SenpoKitakuGaisyaMei" size="15" value="<% =ConvKaisyaMeisyo(SenpoKitakuGaisyaCD) %>" readonly class="tbox2_ro">
																<input type="hidden" name="SenpoKitakuGaisyaCD" value="<% =SenpoKitakuGaisyaCD %>">
																
												<% End If %>
											</td>
											<td height="20" align="center"></td>
											<td height="20"></td>
										</tr>

										<tr>
											<td height="20">運送会社</td>
											<td height="20">
												<% If BunsyoNaiyoCD <> "" Then %>
													<input type="hidden" name="UnsoGaisyaCD" size="15" readonly class="tbox2_ro" value="<% =ConvKaisyaMeisyoDX(EnshuCD, UnsoGaisyaCD) %>"><% =ConvKaisyaMeisyoDX(EnshuCD, UnsoGaisyaCD) %>
												<% Else %>
												
															<select size="1" name="UnsoGaisyaCD" class="tbox2" style="width:105">
																<option value="">　　　　</option>
																<%
																	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
																	Set Content = OpenQuery(Query)
																		Do While Not(Content.BOF Or Content.EOF)
																			If Content.Fields("業種CD") = "U" Then
																				Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																				If Content.Fields("会社CD") = UnsoGaisyaCD Then
																					Response.Write(" selected")
																				End If
																				Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
																			End If
																			Content.MoveNext
																		Loop
																%>
															</select>
												
												<% End If %>
											</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>
																</tr>
															</table>
														</td>
													</tr>
													<tr>
														<td>
															<table width="100%" height="180" border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1618">
															<%
																dim ii
																For ii = 1 to 5
																	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("</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
%>