<%
Function Uosokitaku(EnshuCD, KaisyaCD, KitakuNo, AutoFlg, PrintFlg)
Dim EnshuName
Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo
Dim Tanka '単価
Dim Suryo '数量
Dim Kakaku '標準価格
Dim Kingaku '金額
Dim Ryoritsu '料率
Dim HSyubetsuCode '保険種別CD
Dim Biko '備考
Dim Mosikomibi
Dim KaisyaName
Dim HokenName
'寄託
' Dim KitakuNo '寄託者受付番号
Dim KitakuCD '寄託者CD
Dim KitakuName '寄託者名称
Dim SyohinCD '商品コード
Dim SyohinName '商品名称
Dim KitakuFrom '寄託期間始
Dim KitakuTo '寄託期間終
Dim KitakuSuryo '寄託数量
Dim Basyo '倉庫場所
Dim TotalSyukosu '総出庫数
Dim SyukoZentaka '出庫残高
Dim NyukoNengappi '入庫年月日
Dim NyukoSuryo '入庫数量
Dim SokoBetsu '倉庫種別
Dim SokoBetsuName '倉庫種別名
Dim Tekiyo '摘要
Dim Jyokaritsu '従価率
Dim Jyoryoritsu '従量率
Dim Niyakuritsu '荷役率
Dim HanbaiTanka '単価
Dim SyohinJyuryo '単量
Dim Nisugata '荷姿
Dim Saisu '才数
Dim SyokenNum '倉荷証券番号
Dim SyokenTesuryo '証券手数料
Dim KasaiHokenKin '火災保険単価
Dim KasaiHokenKinSogaku '火災保険総額
Dim KasaiHokenRitsu '火災保険料率
Dim HokenRyokin '保険料金
Dim NiyakuKin '荷役料金
Dim HokanRyokin
Dim Soka
Dim SokaSen
Dim Soryo
Dim SoryoTon
Dim HanbaiTankaMST '標準販売単価
Dim SyohinJyuryoMST '商品重量
Dim SyohinYosekiMST '商品容積
Dim Query
Dim Content
'MousikomiNum = Request("MousikomiNum")
' KitakuNo = Request("KitakuNo")
'対象データＧＥＴ保険情報取得
Query = "exec SPC寄託取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& KitakuNo &""
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KitakuCD = Content.Fields("寄託者CD")
KitakuName = ConvKaisyaMeisyoDx(EnshuCD, KitakuCD)
SyohinCD = Content.Fields("商品CD")
SyohinName = ConvSyohinRyakuMeisyo(SyohinCD)
KitakuFrom = SetTimeYYYYMMDD(Content.Fields("寄託開始年月日"))
KitakuTo = SetTimeYYYYMMDD(Content.Fields("寄託保管期日"))
KitakuSuryo = Content.Fields("寄託数量")
Basyo = Content.Fields("倉庫場所")
TotalSyukosu = Content.Fields("総出庫数")
SyukoZentaka = Content.Fields("残高")
NyukoNengappi = SetTimeYYYYMMDD(Content.Fields("入庫年月日"))
SokoBetsu = Content.Fields("倉庫種別")
SokoBetsuName = ConvKubunMeisyo("倉庫種別", Content.Fields("倉庫種別"))
Tekiyo = Content.Fields("摘要")
Jyokaritsu = Content.Fields("従価率")
Jyoryoritsu = Content.Fields("従量率")
Niyakuritsu = Content.Fields("荷役料率")
SyokenNum = Content.Fields("倉荷証券番号")
SyokenTesuryo = Content.Fields("倉荷証券発行手数料")
NiyakuKin = Content.Fields("荷役料金")
HokanRyokin = Content.Fields("保管料金")
HanbaiTanka = Content.Fields("単価")
SyohinJyuryo = Content.Fields("単量")
Nisugata = Content.Fields("荷姿")
Saisu = Content.Fields("才数")
KasaiHokenKin = Content.Fields("火災保険料金") '火災保険単価
KasaiHokenRitsu = Content.Fields("火災保険料率") '火災保険料率
End If
'オーバーフロー対策（入力側で対策したが既に入力済みのオーバーフローデータが開けないので）
If SyohinJyuryo * KitakuSuryo > 9999999999 Then
SyohinJyuryo = 1
End If
Soka = 0
Soryo = 0
If "" & KitakuSuryo <> "" And KitakuSuryo > 0 Then
If "" & HanbaiTanka <> "" And HanbaiTanka > 0 Then
Soka = HanbaiTanka * KitakuSuryo
End If
If "" & SyohinJyuryo <> "" And SyohinJyuryo > 0 Then
'1トン未満を切り上げた総量
Soryo = Fix((SyohinJyuryo * KitakuSuryo) / 1000)
If (SyohinJyuryo * KitakuSuryo) Mod 1000 > 0 Then
Soryo = Soryo + 1
End If
End If
End If
Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("商品CD") = SyohinCD Then
HanbaiTankaMST = Content.Fields("標準販売単価")
SyohinJyuryoMST = Content.Fields("商品重量")
SyohinYosekiMST = Content.Fields("商品容積")
End If
Content.MoveNext
Loop
Dim HyojunTankaHyoji
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
End If
%>
<table border="0" width="650" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table border="0" >
<tr>
<td height="85" valign="top">
<TABLE class="tx1618" cellpadding="3">
<TR>
<TD>受付番号 </TD>
<TD><%= KitakuNo %></TD>
</TR>
<TR>
<TD>寄託者 </TD>
<TD><%= ConvKaisyaMeisyoDx(EnshuCD, KitakuCD) %></TD>
</TR>
<TR>
<TD>商品名 </TD>
<TD><%= ConvSyohinMeisyo(SyohinCD) %></td>
</TR>
</TABLE>
</td>
</tr>
<tr>
<td>
<table border="1" bordercolor="#000000" style="border-collapse: collapse" cellspacing="0" cellpadding="2" width="340" class="tx1820">
<TR bgcolor="#DDDDDD">
<TD align="center" height="23">寄託情報</TD>
</TR>
<TR>
<TD>
<table border="0" cellpadding="2" class="tx1618">
<TR>
<TD width="110">貯蔵倉庫場所</TD>
<TD colspan="3"><%= Basyo %></td>
</TR>
</table>
<table border="0" cellpadding="2" class="tx1618">
<TR height="20">
<TD>寄託期間 </TD>
<TD><%= KitakuFrom %> ～ <%= KitakuTo %></TD>
</TR>
</table>
<table border="0" cellpadding="2" class="tx1618">
<TR height="23">
<TD>寄託数量 </TD>
<TD><%= SetNumber(KitakuSuryo, false) %> </TD>
<TD> </TD>
<TD>総出庫数 </TD>
<TD><%= SetNumber(TotalSyukosu, false) %> </td>
</TR>
<TR height="23">
<TD></TD>
<TD></TD>
<TD> </TD>
<TD>出庫残高 </TD>
<TD><%= SetMoney(SyukoZentaka, false, true) %></td>
</TR>
</table>
</TD>
</TR>
</table>
</td>
</tr>
<tr>
<td>
<table border="1" bordercolor="#000000" style="border-collapse: collapse" cellspacing="0" cellpadding="2" width="340" class="tx1820">
<TR bgcolor="#DDDDDD">
<TD align="center" height="23">入庫情報</TD>
</TR>
<TR>
<TD>
<table border="0" class="tx1618" cellpadding="2">
<TR height="23">
<TD align="left">入庫日 </TD>
<TD><%= NyukoNengappi %> </TD>
<TD> </TD>
<TD align="left">倉庫種別 </TD>
<TD><%= ConvKubunMeisyo("倉庫種別", SokoBetsu ) %> </TD>
</TR>
<TR height="23">
<TD>摘 要 </TD>
<TD colspan="4"><%= Tekiyo %> </TD>
</TR>
</table>
<table border="0" class="tx1618" cellpadding="2">
<TR height="23">
<TD>入庫料 </TD>
<TD><%= SetMoney(NiyakuKin, false, true) %> 円（1個あたり）</TD>
</TR>
<TR height="23">
<TD colspan="2" align="right"><nobr>荷役料率（1ｔ につき）</nobr></TD>
<TD align="right"><% = SetMoney(Niyakuritsu, false, true) %> 円</TD>
</TR>
<TR height="23">
<TD>保管料 </TD>
<TD><%= SetMoney(HokanRyokin, false, true) %> 円（1個あたり）</TD>
</TR>
<TR height="23">
<TD colspan="2" align="right"><nobr>従価率（1000円につき）</nobr></TD>
<TD align="right"><% = SetMoney(Jyokaritsu, false, true) %> 円</TD>
</TR>
<TR height="23">
<TD colspan="2" align="right"><nobr>従量率（1ｔ につき）</nobr></TD>
<TD align="right"><% = SetMoney(Jyoryoritsu, false, true) %> 円</TD>
</TR>
</table>
</TD>
</TR>
</table>
</td>
</tr>
</table>
</td>
<td width="250" valign="top">
<table border="0" width="250">
<tr>
<td height="85" valign="bottom">
<!--
<table border="1" bordercolor="#000000" style="border-collapse: collapse" cellspacing="0" cellpadding="2" width="340" class="tx1820">
<TR bgcolor="#DDDDDD">
<TD align="center" height="23">商品マスタ情報</TD>
</TR>
<TR>
<TD>
<table border="0" class="tx1618" cellpadding="2">
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<TR>
<TD>標準販売単価 </TD>
<TD align="right"><%= SetMoney(HanbaiTankaMST, false, true) %></TD>
<TD>円</TD>
</TR>
<% End If %>
<TR>
<TD>商品重量 </TD>
<TD align="right"><%= SetNumber(SyohinJyuryoMST, false) %></TD>
<TD>kg</TD>
</TR>
</table>
</TD>
</TR>
</table>
-->
</td>
</tr>
<tr>
<td>
<table border="1" bordercolor="#000000" style="border-collapse: collapse" cellspacing="0" cellpadding="2" width="340" class="tx1820">
<TR bgcolor="#DDDDDD">
<TD align="center" height="23">商品情報</TD>
</TR>
<TR>
<TD>
<table border="0" class="tx1618" cellpadding="2">
<TR>
<TD>単価 </TD>
<TD align="right"><%= SetMoney(HanbaiTanka, false, true) %></TD>
<TD>円</TD>
<TD> </TD>
<TD>総価 </TD>
<TD align="right"><%= SetMoney(Soka, false, true) %></TD>
<TD>円</TD>
</TR>
<TR>
<TD>単量 </TD>
<TD align="right"><%= SetNumber(Syohinjyuryo, false) %></TD>
<TD>kg</TD>
<TD> </TD>
<TD>総量 </TD>
<TD align="right"><%= SetNumber(Soryo, false) %></TD>
<TD>ｔ</TD>
</TR>
<TR>
<TD>荷姿 </TD>
<TD colspan="2"><%= NiSugata %> </TD>
<TD> </TD>
<TD>才数 </TD>
<TD align="right"><%= Saisu %> </TD>
</TR>
</table>
</TD>
</TR>
</table>
</td>
</tr>
<tr>
<td>
<table border="1" bordercolor="#000000" style="border-collapse: collapse" cellspacing="0" cellpadding="2" width="340" class="tx1820">
<TR bgcolor="#DDDDDD">
<TD align="center" height="23">倉荷証券情報</TD>
</TR>
<TR>
<TD>
<table border="0" class="tx1618" cellpadding="2">
<TR>
<TD>倉荷証券番号 </TD>
<TD><% = SyokenNum %></TD>
</TR>
<TR>
<TD>証券手数料 </TD>
<TD align="right"><%= SetMoney(SyokenTesuryo, false, true) %> 円</TD>
</TR>
</table>
</TD>
</TR>
</TABLE>
</td>
</tr>
<tr>
<td>
<table border="1" bordercolor="#000000" style="border-collapse: collapse" cellspacing="0" cellpadding="2" width="340" class="tx1820">
<TR bgcolor="#DDDDDD">
<TD align="center" height="23">保険情報</TD>
</TR>
<TR>
<TD>
<table border="0" class="tx1618" cellpadding="2">
<TR>
<TD>火災保険料金 </TD>
<TD align="right"><%= SetMoney(KasaiHokenKin, false, true) %> 円</TD>
</TR>
<TR>
<TD><nobr>料率<span class="tx1214">（1000円につき）</span> </nobr></TD>
<TD align="right"><%= SetMoney(KasaiHokenRitsu, false, true) %> 円</TD>
</TR>
</table>
</TD>
</TR>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
End Function
%>