<%
Function Uososyuko(EnshuCD, KaisyaCD, SyukkoNo, AutoFlg, PrintFlg)
Dim TekiyoCD '摘要コード
Dim MousikomiNum '申込番号
Dim KanrenKaisyaCD '会社コード、関連会社コード
Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo
Dim Tanka '単価
Dim Suryo '数量
Dim Kakaku '標準価格
Dim Kingaku '金額
Dim Ryoritsu '料率
Dim HokenRyokin '保険料金
Dim HSyubetsuCode '保険種別CD
Dim Biko '備考
Dim Mosikomibi
Dim KaisyaName
Dim HokenName
Dim HanbaiTanka '単価
Dim SyohinJyuryo '単量
Dim Nisugata '荷姿
Dim Saisu '才数
'出庫
' Dim SyukkoNo '出庫番号
Dim KitakuNo '寄託者受付番号
Dim KitakuCD '寄託者CD
Dim SyohinCD '商品コード
Dim SyohinName '商品名称
Dim Basyo '倉庫場所
Dim SokoBetsu '倉庫種別
Dim KitakuFrom '寄託期間始
Dim KitakuTo '寄託期間終
Dim SyukoYMD '出庫年月日
Dim SyukoSuryo '出庫数量
Dim Tekiyo '摘要
Dim Kisu '期数
Dim SokoHokenRyo '倉庫保管料
Dim SokoNiyakukin '倉庫荷役料金
Dim Jyokaritsu '従価率
Dim Jyoryoritsu '従量率
Dim Niyakuritsu '荷役率
Dim SyohinYoseki '商品容積
Dim NyukoNengappi '入庫日
Dim KitakuSuryo '入庫数量
Dim SuryoTotal '総出庫数
Dim SyukoZentaka '出庫残高
Dim GokeiKingaku, Syohizeigaku, ZeikomiKingaku
Dim Query
Dim Content
Dim NiyakuKin '荷役料金
Dim HokanSougaku
Dim NyukoTekiyo
MousikomiNum = Request("MousikomiNum")
' SyukkoNo = Request("SyukkoNo")
'対象データＧＥＴ保険情報取得
Query = "exec SPC出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& SyukkoNo &""
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
SyukkoNo = Content.Fields("出庫番号")
KitakuCD = Content.Fields("寄託者CD")
KitakuNo = Content.Fields("寄託受付番号")
SyohinCD = Content.Fields("商品CD")
SyukoYMD = SetTimeYYYYMMDD(Content.Fields("出庫年月日"))
SyukoSuryo = Content.Fields("出庫数量")
Tekiyo = Content.Fields("摘要")
Kisu = Content.Fields("期数")
SokoHokenRyo = Content.Fields("保管料金")
SokoNiyakukin = Content.Fields("荷役料金")
'SyohinName = Content.Fields("会社CD")
Basyo = Content.Fields("倉庫場所")
SokoBetsu = Content.Fields("倉庫種別")
KitakuFrom = SetTimeYYYYMMDD(Content.Fields("寄託開始年月日"))
KitakuTo = SetTimeYYYYMMDD(Content.Fields("寄託保管期日"))
Jyokaritsu = Content.Fields("従価率")
Jyoryoritsu = Content.Fields("従量率")
Niyakuritsu = Content.Fields("荷役料率")
NyukoNengappi = SetTimeYYYYMMDD(Content.Fields("入庫年月日"))
KitakuSuryo = Content.Fields("寄託数量")
SuryoTotal = Content.Fields("総出庫数")
SyukoZentaka = KitakuSuryo - SuryoTotal ' Content.Fields("残高")
End If
If SokoHokenRyo = "" Then SokoHokenRyo = 0 End If
If SokoNiyakukin = "" Then SokoNiyakukin = 0 End If
GokeiKingaku = SokoHokenRyo + SokoNiyakukin
Syohizeigaku = Int(GokeiKingaku * GB_Shohizei / 100)
ZeikomiKingaku = GokeiKingaku + Syohizeigaku
Query = "exec SPC寄託取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'," & KitakuNo
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KitakuCD = Content.Fields("寄託者CD")
KitakuSuryo = Content.Fields("寄託数量")
SuryoTotal = Content.Fields("総出庫数")
SyukoZentaka = KitakuSuryo - SuryoTotal ' Content.Fields("残高")
Niyakukin = Content.Fields("荷役料金")
HokanSougaku = Content.Fields("保管料金")
HanbaiTanka = Content.Fields("単価")
SyohinJyuryo = Content.Fields("単量")
Nisugata = Content.Fields("荷姿")
Saisu = Content.Fields("才数")
NyukoTekiyo = Content.Fields("摘要")
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
SyohinJyuryo = Content.Fields("商品重量")
SyohinYoseki = Content.Fields("商品容積")
End If
Content.MoveNext
Loop
Dim Soryo
Soryo = 0
Dim Soka
Soka = 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
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="2">
<tr>
<td>
<TABLE BORDER="0" width="350" height="100%" CELLSPACING="0" CELLPADDING="2">
<TR>
<TD valign="top">
<TABLE class="tx1618" border="0" CELLSPACING="0" CELLPADDING="2">
<TR>
<TD>出庫番号 </TD>
<TD><%= SyukkoNo %>
寄託受付番号
<%= KitakuNo %></td>
</TR>
<TR>
<TD>寄託者</TD>
<TD><%= ConvKaisyaMeisyo(KitakuCD) %></td>
</TR>
<TR>
<TD>商品名</TD>
<TD><%= ConvSyohinRyakuMeisyo(SyohinCD) %></td>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD height="100">
<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" width="340" class="tx1618" CELLSPACING="0" CELLPADDING="2">
<TR>
<TD bgcolor="#DDDDDD" align="center" height="23">寄託情報</TD>
</TR>
<TR>
<TD>
<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
<TR>
<TD><nobr>貯蔵倉庫場所 </nobr></TD>
<TD><%= Basyo %></td>
</TR>
</TABLE>
<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
<TR height="23">
<TD>寄託期間 </TD>
<TD>
<%= KitakuFrom %> ～ <%= KitakuTo %>
</TD>
</TR>
</TABLE>
<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
<TR height="23">
<TD>寄託数量 </TD>
<TD>
<%= SetNumber(KitakuSuryo, false) %>
</TD>
<TD>総出庫数 </TD>
<TD>
<%= SetNumber(SuryoTotal, false) %>
</td>
</TR>
<TR height="23">
<TD></TD>
<TD></TD>
<TD align="right">出庫残高 </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">
<TR bgcolor="#DDDDDD">
<TD align="center" height="23">出庫情報</TD>
</TR>
<TR>
<TD>
<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
<TR>
<TD><nobr>出庫日 </nobr></TD>
<TD><%= SyukoYMD %></TD>
<TD> </TD>
<TD><nobr>期数 </nobr></TD>
<TD><%= SetNumber(Kisu, false) %></TD>
</TR>
</TABLE>
<TABLE border="0" cellspacing="0" cellpadding="2" class="tx1618">
<TR>
<TD>出庫数量 </TD>
<TD><%= SetNumber(SyukoSuryo, false) %></TD>
</TR>
</TABLE>
<TABLE border="0" cellspacing="0" class="tx1618" cellpadding="2">
<TR>
<TD>出庫料 </TD>
<TD><%= SetMoney(NiyakuKin, false, true) %> 円（1個あたり）</TD>
</TR>
<TR>
<TD colspan="2" align="right"><nobr>荷役料率（1ｔ につき）</nobr></TD>
<TD>
<%= SetMoney(Niyakuritsu, false, true) %> 円
</TD>
</TR>
</TABLE>
<TABLE border="0" class="tx1618" cellpadding="0">
<TR>
<TD>荷役料 </TD>
<TD align="right"><%= SetMoney(SokoNiyakukin, false, true) %> 円</TD>
</TR>
<TR>
<TD>保管料 </TD>
<TD align="right"><%= SetMoney(SokoHokenRyo, false, true) %> 円</TD>
</TR>
</TABLE>
<TABLE border="0" class="tx1618" cellpadding="0">
<TR>
<TD>合計金額 </TD>
<TD>消費税額 </TD>
<TD>請求倉庫料金</TD>
</TR>
<TR>
<TD align="right"><%= SetMoney(GokeiKingaku, false, true) %> 円 </TD>
<TD align="right"><%= SetMoney(Syohizeigaku, false, true) %> 円 </TD>
<TD align="right"><%= SetMoney(ZeikomiKingaku, false, true) %> 円</TD>
</TR>
</TABLE>
<TABLE border="0" class="tx1618" cellpadding="0">
<TR>
<TD>摘要 <%= Tekiyo %></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
<TD valign="top" width="230">
<TABLE width="230" class="tx1618" BORDER="0" STYLE="border-collapse: collapse" CELLSPACING="0" CELLPADDING="2">
<tr>
<td>
<TABLE width="350" height="73" align="center" class="tx1618" border="0" CELLSPACING="0" CELLPADDING="2" STYLE="border-collapse: collapse">
<tr>
<td>
</TD>
</TR>
</TABLE>
<TABLE border="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="100%">
<TR bgcolor="#DDDDDD">
<TD align="center" height="23">商品情報</TD>
</TR>
<TR>
<TD>
<TABLE class="tx1618" border="0" cellpadding="0">
<TR>
<TD>単価 </TD>
<TD align="right"><%= SetMoney(HanbaiTanka, false, true) %> 円 </TD>
<TD>総価 </TD>
<TD align="right"><%= SetMoney(Soka, false, true) %> 円</TD>
</TR>
<TR>
<TD>単量 </TD>
<TD align="right"><%= SetNumber(SyohinJyuryo, false) %> kg </TD>
<TD>総量 </TD>
<TD align="right"><%= SetNumber(Soryo, false) %> ｔ </TD>
</TR>
<TR>
<TD>荷姿 </TD>
<TD><%= Nisugata %> </TD>
<TD>才数 </TD>
<TD align="right"><%= SetNumber(Saisu, false) %></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr>
<tr>
<td class="tx1214">
<TABLE BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="0" cellpadding="2" width="350">
<TR bgcolor="#DDDDDD">
<TD align="center" height="23">入庫情報</TD>
</TR>
<TR>
<TD>
<TABLE BORDER="0" class="tx1618" cellpadding="0">
<TR height="23">
<TD align="left">入庫日 </TD>
<TD><%= NyukoNengappi %> </TD>
<TD align="left"><nobr>倉庫種別 </nobr></TD>
<TD><%
Dim DataSibetsu
DataSibetsu="倉庫種別"
Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','" & DataSibetsu & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("区分CD") = SokoBetsu Then
Response.Write(Content.Fields("区分名称"))
Exit Do
End If
Content.MoveNext
Loop
%> </TD>
</TR>
<TR height="23">
<TD>摘 要 </TD>
<TD colspan="3"><%= NyukoTekiyo %></TD>
</TR>
</TABLE>
<TABLE border="0" class="tx1618" cellpadding="0">
<TR>
<TD>入庫料 </TD>
<TD align="right"><%= SetMoney(NiyakuKin, false, true) %> 円（1個あたり）</TD>
</TR>
<TR>
<TD colspan="2" align="right"><nobr>荷役料率（1ｔ につき）</nobr></TD>
<TD align="right">
<%= SetMoney(Niyakuritsu, false, true) %> 円
</TD>
</TR>
<TR>
<TD>保管料 </TD>
<TD align="right"><%= SetMoney(HokanSougaku, false, true) %> 円（1個あたり）</TD>
</TR>
<TR>
<TD colspan="2" align="right"><nobr>従価率（1000円につき）</nobr></TD>
<TD align="right">
<%= SetMoney(Jyokaritsu, false, true) %> 円
</TD>
</TR>
<TR>
<TD colspan="2" align="right"><nobr>従量率（1ｔ につき）</nobr></TD>
<TD align="right">
<%= SetMoney(Jyoryoritsu, false, true) %> 円
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<br>
<br>
※荷役料 ＝ （1個あたり入庫料 ＋ 1個あたり出庫料） × 出庫数<br>
※保管料 ＝ 1個あたり保管料 × 期数 × 出庫数<br>
</TD>
</tr>
</table>
</td>
</tr>
</table>
<%
End Function
%>