<%
'<!--
'################################################
' 名称 ：仕入売上書類表示
' 作成日：2002/9/10
' 作成者：山崎 貴史
' 目的 ：仕入売上書類画面を表示する。
' 概要 ：
' <<表示>>
'################################################
'-->
'
%>
<%
Function ShiireUriageSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, HikaeFlg)
'マスタの標準消費税率を取得
Dim StdTaxRate
Dim StdTaxRateUnso
StdTaxRate = GB_Shohizei
StdTaxRateUnso = GB_Shohizei
If GB_ShohizeiMode = 1 Then
Query = " SELECT * FROM TDA消費税率M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND (標準 = '1' OR 運送費標準 = '1') "
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("標準") = "1" Then
StdTaxRate = Content.Fields("消費税率")
End If
If "" & Content.Fields("運送費標準") = "1" Then
StdTaxRateUnso = Content.Fields("消費税率")
End If
Content.MoveNext
Loop
End If
Dim TmpCnt
Dim Syoribi, NonyuBasyoKubun, NonyuKijitsu
Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
Dim UnsohiSyohizei
Dim SenpoSyoribi
Dim DbTorihikisakiCD, DbSenpoBunsyoNaiyoCD
Dim SenpoTmpBunsyoSyuruiCD
Dim Tekiyo2
Dim Hikae
If HikaeFlg = 1 Then
Hikae = "（控）"
Else
Hikae = ""
End If
Dim LabelSoumu
Dim LabelTanto
Dim LabelKakari
LabelSoumu = ""
LabelTanto = ""
LabelKakari = "係 印"
If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If
If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If
If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If
Dim SyohinCD(5) '商品コード
Dim SyohinName(5) '商品名称
Dim SyohinAlign(5)
Dim Kakaku(5) '標準価格
Dim Suryo(5) '数量
Dim Tanka(5) '単価
Dim TaxRate(5) '消費税率
Dim Kingaku(5) '金額
Dim UnsoTanka(5) '運送単価
Dim UnsohiSyohin(5) '商品運送費
Dim UnsohiGokei
Dim OldSyoruiFlg
UnsohiGokei = 0
OldSyoruiFlg = 0
Dim NonyuBasyoMeisyo, UntinSyogakariMeisyo
Dim GokeiKingaku '合計
Dim SyohizeiKingaku '消費税
Dim ZeikomiKingaku '税込み金額
Dim Checked_N,Checked_R
Dim GakuseiShimei '学生氏名（係印）
Dim GakuseiBango
SyohizeiKingaku = 0
For TmpCnt = 1 To 5
TaxRate(TmpCnt) = StdTaxRate
Next
Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD
Dim SyoruiMei
Dim Query
Dim Content
Dim Genkin, Toza
Dim Shimei
Dim SakujyoFlg
Dim KaifuFlg
Dim SenpoFlg
If KaisyaCD <> SakuseiKaisyaCD Then
SenpoFlg = "1"
Else
SenpoFlg = "0"
End If
Dim Kubun, Title
Dim SyoriMongon
Dim SyoriMei
Dim ShiireUriageKubun
Dim SenpoTmpSyoruiKubun
Select Case BunsyoSyuruiCD
Case "K1"
SyoruiMei = "仕入返品伝票"
Title = SyoruiMei
ShiireUriageKubun = "S"
SyoriMongon = "下記の通り返品致します。"
Case "K2"
SyoruiMei = "売上返品伝票"
Title = SyoruiMei
ShiireUriageKubun = "S"
SyoriMongon = "下記の通り返品受付致します。"
Case "K3"
SyoruiMei = "領収書"
Title = SyoruiMei
ShiireUriageKubun = "S"
SyoriMongon = "下記の通り領収致しました。"
Case "KI"
SyoruiMei = "見積依頼書"
Title = SyoruiMei
ShiireUriageKubun = "S"
SyoriMongon = "下記の通り御見積り依頼申し上げます。"
Case "KM"
SyoruiMei = "見積書"
Title = SyoruiMei
ShiireUriageKubun = "U"
SenpoTmpSyoruiKubun = "KI"
SyoriMei = "見積"
SyoriMongon = "下記の通り御見積り申し上げます。"
Case "KC"
SyoruiMei = "注文書"
Title = SyoruiMei
ShiireUriageKubun = "S"
SyoriMongon = "下記の通り注文致します。"
Case "KU"
SyoruiMei = "注文請書"
Title = SyoruiMei
ShiireUriageKubun = "U"
SyoriMei = "請求"
SyoriMongon = "下記の通り注文をお請け致します。"
Case "KK"
SyoruiMei = "注文請書"
Title = "先方注文請書確認"
ShiireUriageKubun = "S"
SyoriMongon = "下記の通り注文をお請け致します。"
Case "KN"
SyoruiMei = "納品請求書"
Title = SyoruiMei
ShiireUriageKubun = "U"
SyoriMei = "請求"
SyoriMongon = "下記の通り納品請求申し上げます。"
Case "KB"
SyoruiMei = "物品受領書"
Title = SyoruiMei
ShiireUriageKubun = "S"
SyoriMongon = "下記の通り受領致しました"
Case "KQ"
SyoruiMei = "領収書"
Title = SyoruiMei
ShiireUriageKubun = "S"
SyoriMongon = "下記の通り領収致しました"
Case "KX"
SyoruiMei = "管理部買入申込書"
Title = SyoruiMei
ShiireUriageKubun = "X"
Case "KY"
SyoruiMei = "管理部売渡申込書"
Title = SyoruiMei
ShiireUriageKubun = "1"
Case "KV"
SyoruiMei = "管理部納品請求書"
Title = SyoruiMei
ShiireUriageKubun = "V"
Case "KW"
SyoruiMei = "管理部売渡受付書"
Title = SyoruiMei
ShiireUriageKubun = "W"
Case "KO"
SyoruiMei = "管理部宛物品受領書"
Title = SyoruiMei
ShiireUriageKubun = "X"
Case "KP"
SyoruiMei = "管理部宛納品請求書"
Title = SyoruiMei
ShiireUriageKubun = "1"
SenpoTmpSyoruiKubun = "KW"
Case Else
End Select
SyoruiMei = SyoruiMei & Hikae
'見積依頼書・管理部買入申込書・管理部売渡申込書は税率・合計がないので此処でレイアウトトグル
Dim TmpShohizeiMode
Dim TmpGokeiMode
TmpShohizeiMode = GB_ShohizeiMode
TmpGokeiMode = 1
If BunsyoSyuruiCD = "KI" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then
TmpShohizeiMode = 0
TmpGokeiMode = 0
End If
'Response.Write(TmpShohizeiMode)
'Exit Sub
If BunsyoNaiyoCD <> "" Then
If SenpoFlg = "1" Then
If BunsyoSyuruiCD <> "KK" Then '注文請書確認でない
If KaisyaCD <> SakuseiKaisyaCD Then
If GB_JisyaFlag <> "" Then '運用管理・演習管理（自社フラグ無し）では開封フラグを立てない（061213小野）
Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
End If
End If
End If
End If
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
'Response.Write("Query:" & Query & "<br>")
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
BunsyoNaiyoCD = Content.Fields("文書内容CD")
DbTorihikisakiCD = Content.Fields("取引先CD")
HasshinFlg = Content.Fields("発行フラグ")
Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
DbSenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日"))
NonyuBasyoKubun = Content.Fields("納入場所区分")
NonyuKijitsu = SetTimeYYYYMMDD(Content.Fields("納入期日"))
UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
UnsoGaisyaCD = Content.Fields("運送会社CD")
Unsohi = Content.Fields("運送費")
UnsohiSeikyuFlg = Content.Fields("運送費請求フラグ")
Tekiyo = Content.Fields("摘要")
Tekiyo2 = Content.Fields("摘要2")
ShiharaiHoho = Content.Fields("支払方法")
GakuseiBango = Content.Fields("学生番号")
SakujyoFlg = Content.Fields("削除フラグ")
KaifuFlg = Content.Fields("開封フラグ")
If Unsohi = "" Or IsNull(Unsohi) Then
Unsohi = 0
End If
Do While Not(Content.BOF Or Content.EOF)
Dim DenpyoSEQ,PreDenpyoSEQ
DenpyoSEQ = Content.Fields("文書内容SEQ")
SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
If BunsyoSyuruiCD = "KI" OR BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KY" Or PrintFlg = 1 Then
SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
Else
SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
End If
If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then
' SyohinName(DenpyoSEQ) = AscLeft(SyohinName(DenpyoSEQ),28) '商品名称を28byteで切捨て（061031小野）
SyohinName(DenpyoSEQ) = "<span style=""width:200px; height:16px; overflow:hidden; border:0px solid #000000;"">" & SyohinName(DenpyoSEQ) & "</span>" '商品名称表示領域を制限（070919小野）
End If
Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
Suryo(DenpyoSEQ) = Content.Fields("数量")
Tanka(DenpyoSEQ) = Content.Fields("単価")
Kingaku(DenpyoSEQ) = Content.Fields("単価") * Content.Fields("数量")
TaxRate(DenpyoSEQ) = Content.Fields("消費税率")
If "" & TaxRate(DenpyoSEQ) = "" Or GB_ShohizeiMode <> 1 Then
TaxRate(DenpyoSEQ) = StdTaxRate
End If
UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価")
UnsohiSyohin(DenpyoSEQ) = Content.Fields("運送単価") * Content.Fields("数量")
If PreDenpyoSEQ <> DenpyoSEQ then
GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
If TaxRate(DenpyoSEQ) <> "" Then
SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * CCur(TaxRate(DenpyoSEQ)) / 100)
Else
SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * StdTaxRate / 100)
End If
If Not(IsNull(UnsohiSyohin(DenpyoSEQ))) Then
UnsohiGokei = UnsohiGokei + UnsohiSyohin(DenpyoSEQ)
End If
End If
Content.MoveNext
PreDenpyoSEQ = DenpyoSEQ
Loop
'SyohizeiKingaku = Int((GokeiKingaku + Unsohi * UnsohiSeikyuFlg) * GB_Shohizei / 100)
UnsohiSyohizei = (Unsohi * StdTaxRateUnso / 100) * UnsohiSeikyuFlg
SyohizeiKingaku = Int(SyohizeiKingaku + UnsohiSyohizei)
'Response.Write(SyohizeiKingaku)
'Exit Function
UnsohiSyohizei = Int(UnsohiSyohizei)
ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku + Unsohi * UnsohiSeikyuFlg
If UnsohiGokei <> Unsohi Then '運送単価から計算された値が運送費と異なっていれば旧仕様にする
OldSyoruiFlg = 1
End If
End If
End If
Dim jj,tmps
Dim ii
For ii = 1 To 5
SyohinAlign(ii) = "left"
If SyohinName(ii) = "" Then
SyohinName(ii) = "以下余白"
SyohinAlign(ii) = "center"
Exit For
End If
Next
If SyohinName(1) = "以下余白" Then
SyohinName(1) = ""
End If
Dim Kaisyamei, KaisyaRyakumei, kaisyaKanamei, ZipCode
Dim Adr1, Adr2, Tel, Fax, GyosyuCD
If BunsyoNaiyoCD <> "" Then
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Kaisyamei = Content.Fields("会社名称")
KaisyaRyakumei = Content.Fields("会社略名称")
kaisyaKanamei = Content.Fields("会社カナ名称")
ZipCode = Content.Fields("郵便番号")
Adr1 = Content.Fields("住所1")
Adr2 = Content.Fields("住所2")
Tel = Content.Fields("TEL")
Fax = Content.Fields("FAX")
GyosyuCD = Content.Fields("業種CD")
End If
End If
Dim H1, H2, H3, W1, B1
If PrintFlg = 0 Then
H1 = 25
H2 = 100
W1 = 606
If TmpShohizeiMode = 1 Then
W1 = 646
End If
B1 = 1
Else
H1 = 30
H2 = 100
W1 = 667
B1 = 0
End If
Dim Kitakuriyou,KitakuGaisyaCD
'演習設定取得
Dim ShiireUriageJHB
Dim HyojunTankaHyoji
Dim ShameiYusen
ShameiYusen = ""
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Kitakuriyou = Content.Fields("寄託倉庫利用")
ShameiYusen = "" & Content.Fields("仕入売上書類社名優先")
ShiireUriageJHB = "" & Content.Fields("仕入売上書類受発信利用")
HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
End If
Query = "exec SPM寄託会社取得2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KitakuGaisyaCD = Content.Fields("寄託会社CD")
End If
%>
<table width="640" height="<% If PrintFlg = 0 And BunsyoNaiyoCD = "" Then %>510<% Else %>400<% End If %>" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle">
<%
If PrintFlg = 1 And HikaeFlg < 2 Then 'HTML出力モードではヘッダを出さない
Response.Write(PrintHeader(AutoFlg, ""))
End if
%>
<table width="540" height="100%" border="0" cellpadding="0" cellspacing="2">
<tr>
<td align="CENTER" valign="top">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="100%" align="CENTER" valign="top">
<% If PrintFlg = 0 And BunsyoNaiyoCD = "" Then %>
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:655px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<% End If %>
<table width="<% If PrintFlg = 1 Then %><% = W1 %><% Else %><% = W1 + 30 %><% End If %>" border="0" cellspacing="0" cellpadding="0" height="<% If PrintFlg = 0 And BunsyoNaiyoCD = "" Then %><% If BunsyoSyuruiCD = "KM" Or BunsyoSyuruiCD = "KU" Or BunsyoSyuruiCD = "KN" Then %>780<% Else %>700<% End If %><% Else %>460<% End If %>" bgcolor="#FFFFFF" style="border:solid <% = B1 %>px #000000">
<tr>
<td align="CENTER" valign="BOTTOM">
<table width="<% = W1 - 10 %>" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="150" >
<table width="150" border="0" cellpadding="0" cellspacing="0">
<tr class="tx1416">
<td width="150" align="left">書類番号：<% = BunsyoNaiyoCD %></td>
</tr>
</table>
</td>
<td valign="top" align="center">
<table width="150" class="tx2022b" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td align="center" nowrap>
<% If Len(SyoruiMei) < 8 Then %>
<% = SetStringInsertSpace(SyoruiMei) %>
<% Else %>
<% = SyoruiMei %>
<% End If %>
</td>
</tr>
</table>
</td>
<td width="150">
<table width="150" border="0" cellpadding="0" cellspacing="0">
<tr class="tx1416">
<td width="150" align="right">処理日：<% If "" & Syoribi = "" Then %> <% Else %><% = Syoribi %><% End If %></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr><td height="5" align="center" valign="top"></td></tr>
<tr>
<td height="95" align="center" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table class="tx1416" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="<% = H1 %>" style="border-bottom: 1px solid #000000" colspan="2" class="tx1416">
<table class="tx1618" width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<% = ConvKaisyaMeisyoDx(EnshuCD, DbTorihikisakiCD) %>
</td>
<td align="right">
御中
</td>
</tr>
</table>
</td>
</tr>
<tr >
<td width="60" height="<% = H1 %>" style="border-bottom: 1px solid #000000">納入場所</td>
<td style="border-bottom: 1px solid #000000">：<% = ConvKubunMeisyo("納入場所区分", NonyuBasyoKubun) %>
<%
If Kitakuriyou = "1" Then
Response.Write("：")
Response.Write(ConvKaisyaMeisyo(KitakuGaisyaCD))
End If
%>
</td>
</tr>
<tr >
<td width="60" height="<% = H1 %>" style="border-bottom: 1px solid #000000">運賃諸掛</td>
<td style="border-bottom: 1px solid #000000">：<% = ConvKubunMeisyo("運賃諸掛区分", UntinSyogakariKubun)%></td>
</tr>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<tr >
<td width="60" height="<% = H1 %>" style="border-bottom: 1px solid #000000">運送会社</td>
<td style="border-bottom: 1px solid #000000">：<% = ConvKaisyaMeisyoDx(EnshuCD, UnsoGaisyaCD) %></td>
</tr>
<% Else '運送会社がない分は空行にする %>
<tr >
<td width="60" height="<% = H1 %>" style="border-bottom: 1px solid #000000" colspan="2"> </td>
</tr>
<% End If %>
<tr >
<td width="60" height="<% = H1 %>" style="border-bottom: 1px solid #000000">支払方法</td>
<td style="border-bottom: 1px solid #000000">：<%
ShiharaiHoho = AscLeft(ShiharaiHoho,26) '支払方法を26byteで切捨て（061031小野）
%>
<% = ShiharaiHoho %></td>
</tr>
<tr >
<td height="<% = H1 %>" width="60" style="border-bottom: 1px solid #000000"><% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %></td>
<td width="225" style="border-bottom: 1px solid #000000">：<% = NonyuKijitsu %></td>
</tr>
</table>
</td>
<td>
<table height="95" class="tx1416" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="<% = H1 %>">
</td>
</tr>
<tr >
<td width="<% = H1 %>" ></td>
</tr>
<tr >
<td width="<% = H1 %>" ></td>
</tr>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<tr >
<td width="<% = H1 %>" ></td>
</tr>
<% End If %>
<tr>
<td width="<% = H1 %>" ></td>
</tr>
</table>
</td>
<td valign="bottom">
<table width="285" class="tx1416" border="0" cellpadding="0" cellspacing="0">
<% If ShameiYusen <> "1" Then %>
<tr>
<td height="<% = H1 %>" style="border-bottom: 1px solid #000000"><% = Kaisyamei %> </td>
</tr>
<% End If %>
<tr>
<td height="<% = H1 %>" style="border-bottom: 1px solid #000000"><% = Adr1 %> </td>
</tr>
<% If Trim(Adr2) <> "" Then %>
<tr>
<td height="<% = H1 %>" style="border-bottom: 1px solid #000000"><% = Adr2 %> </td>
</tr>
<% End If %>
<% If ShameiYusen = "1" Then %>
<tr>
<td height="<% = H1 %>" style="border-bottom: 1px solid #000000"><% = Kaisyamei %> </td>
</tr>
<% End If %>
<% If ShiireHanbaiKaishaTekiyo = 1 And Trim(Tekiyo2) <> "" Then %>
<tr>
<td height="<% = H1 %>" style="border-bottom: 1px solid #000000"><%
Tekiyo2 = AscLeft(Tekiyo2,32) '摘要を32byteで切捨て（061031小野）
%>
<% = Tekiyo2 %></td>
</tr>
<% End If %>
<tr>
<td height="<% = H1 %>" style="border-bottom: 1px solid #000000">TEL：<% = Tel %></td>
</tr>
<tr>
<td height="<% = H1 %>" style="border-bottom: 1px solid #000000">FAX：<% = Fax %></td>
</tr>
<tr>
<td height="<% = H1 %>" style="border-bottom: 1px solid #000000">摘要：<%
Tekiyo = AscLeft(Tekiyo,32) '摘要を32byteで切捨て（061031小野）
%>
<% = Tekiyo %></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
<tr>
<td height="60" valign="bottom" align="right">
</td>
</tr>
<tr>
<td height="60" valign="bottom" align="right">
<table width="150" height="60" border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" STYLE="border-collapse: collapse">
<tr class="tx1416">
<td width="50" height="15" align="center"><% = LabelSoumu %></td>
<td width="50" height="15" align="center"><% = LabelTanto %></td>
<td width="50" height="15" align="center"><% = LabelKakari %></td>
</tr>
<tr class="tx1416">
<td width="50" height="35" align="center"> </td>
<td width="50" height="35" align="center"> </td>
<td width="50" height="35" align="center"><% = ConvShimeiRyakuMeisyo(GakuseiBango) %></td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="bottom">
<table border="0" width="100%" class="tx1416">
<tr>
<td><% = SyoriMongon %></td>
</tr>
<% If ShiireUriageKubun = "U" Then %>
<tr>
<td>
<table border="1" STYLE="border-collapse: collapse" BORDERCOLOR="#000000" cellpadding="5" cellspacing="0" class="tx1416" height="40">
<tr>
<td align="center" width="100" bgcolor="#DDDDDD">合計金額</td>
<td width="130" align="right"><% = SetMoney(ZeikomiKingaku, false, false) %> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
（上記金額には消費税が含まれています）
</td>
</tr>
<% End If %>
</table>
</td>
</tr>
<% End If %>
</table>
</td>
</tr>
<tr>
<td align="CENTER" valign="TOP">
<table width="<% = W1 %>" height="230" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse; border:solid 2px #FFFFFF">
<tr>
<td width="100%" align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<% = W1 %>" bordercolor="#000000">
<tr>
<td height="150" valign="TOP">
<table width="100%" height="<% If TmpGokeiMode = 1 Then %>250<% Else %>160<% End If %>" border="1" frame="void" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" class="tx1416" bgcolor="#FFFFFF">
<tr bgcolor="#DDDDDD">
<td align="center">商品名称</td>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="center" width="98"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準価格") End If %></td>
<% End If %>
<td align="center" width="98">数 量</td>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<td align="center" width="98">単 価</td>
<td align="center" width="98">金 額</td>
<% If TmpShohizeiMode = 1 Then %>
<td align="center" width="52">税率</td>
<% End If %>
<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
<td align="center" width="60">運送<br>単価</td>
<% End If %>
<% End If %>
</tr>
<tr>
<td align="<% = SyohinAlign(1) %>"><% = SyohinName(1) %></td>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="right"><% = SetMoney(Kakaku(1), false, true) %> </td>
<% End If %>
<td align="right"><% = SetMoney(Suryo(1), false, true) %> </td>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<td align="right"><% = SetMoney(Tanka(1), false, true) %> </td>
<td align="right"><% = SetMoney(Kingaku(1), false, true) %> </td>
<% If TmpShohizeiMode = 1 Then %>
<td align="center"><% If "" & Kingaku(1) <> "" Then %><% = TaxRate(1) %>％<% End If %></td>
<% End If %>
<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
<td align="right"><% = SetMoney(UnsoTanka(1), false, true) %> </td>
<% End If %>
<% End If %>
</tr>
<tr>
<td align="<% = SyohinAlign(2) %>"><% = SyohinName(2) %> </td>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="right"><% = SetMoney(Kakaku(2), false, true) %> </td>
<% End If %>
<td align="right"><% = SetMoney(Suryo(2), false, true) %> </td>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<td align="right"><% = SetMoney(Tanka(2), false, true) %> </td>
<td align="right"><% = SetMoney(Kingaku(2), false, true) %> </td>
<% If TmpShohizeiMode = 1 Then %>
<td align="center"><% If "" & Kingaku(2) <> "" Then %><% = TaxRate(2) %>％<% End If %></td>
<% End If %>
<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
<td align="right"><% = SetMoney(UnsoTanka(2), false, true) %> </td>
<% End If %>
<% End If %>
</tr>
<tr>
<td align="<% = SyohinAlign(3) %>"><% = SyohinName(3) %> </td>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="right"><% = SetMoney(Kakaku(3), false, true) %> </td>
<% End If %>
<td align="right"><% = SetMoney(Suryo(3), false, true) %> </td>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<td align="right"><% = SetMoney(Tanka(3), false, true) %> </td>
<td align="right"><% = SetMoney(Kingaku(3), false, true) %> </td>
<% If TmpShohizeiMode = 1 Then %>
<td align="center"><% If "" & Kingaku(3) <> "" Then %><% = TaxRate(3) %>％<% End If %></td>
<% End If %>
<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
<td align="right"><% = SetMoney(UnsoTanka(3), false, true) %> </td>
<% End If %>
<% End If %>
</tr>
<tr>
<td align="<% = SyohinAlign(4) %>"><% = SyohinName(4) %> </td>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="right" width="100"><% = SetMoney(Kakaku(4), false, true) %> </td>
<% End If %>
<td align="right" width="100"><% = SetMoney(Suryo(4), false, true) %> </td>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<td align="right" width="100"><% = SetMoney(Tanka(4), false, true) %> </td>
<td align="right" width="100"><% = SetMoney(Kingaku(4), false, true) %> </td>
<% If TmpShohizeiMode = 1 Then %>
<td align="center"><% If "" & Kingaku(4) <> "" Then %><% = TaxRate(4) %>％<% End If %></td>
<% End If %>
<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
<td align="right"><% = SetMoney(UnsoTanka(4), false, true) %> </td>
<% End If %>
<% End If %>
</tr>
<tr>
<td align="<% = SyohinAlign(5) %>"><% = SyohinName(5) %> </td>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="right" width="100"><% = SetMoney(Kakaku(5), false, true) %> </td>
<% End If %>
<td align="right" width="100"><% = SetMoney(Suryo(5), false, true) %> </td>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<td align="right" width="100"><% = SetMoney(Tanka(5), false, true) %> </td>
<td align="right" width="100"><% = SetMoney(Kingaku(5), false, true) %> </td>
<% If TmpShohizeiMode = 1 Then %>
<td align="center"><% If "" & Kingaku(5) <> "" Then %><% = TaxRate(5) %>％<% End If %></td>
<% End If %>
<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
<td align="right"><% = SetMoney(UnsoTanka(5), false, true) %> </td>
<% End If %>
<% End If %>
</tr>
<!--
</table>
</td>
</tr>
-->
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<!--
<tr>
<td>
<table width="100%" height="<% = H2 %>" border="1" cellpadding="0" cellspacing="0" frame="void" style="border-collapse: collapse" bordercolor="#000000" bgcolor="#DDDDDD" class="tx1416">
-->
<tr bgcolor="#DDDDDD">
<td align="center" rowspan="4"<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> colspan="2"<% End If %>> </td>
<td align="center" colspan="2">合計金額</td>
<td align="right" bgcolor="#FFFFFF" width="100"><% = SetMoney(GokeiKingaku, false, false) %> </td>
<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
<td align="right" bgcolor="#FFFFFF" rowspan="4"> </td>
<% End If %>
<% If TmpShohizeiMode = 1 Then %>
<td align="center" rowspan="4"></td>
<% End If %>
</tr>
<tr bgcolor="#DDDDDD">
<td align="center" colspan="2">運送費請求額</td>
<td align="right" bgcolor="#FFFFFF"><% If BunsyoNaiyoCD <> "" Then %><% = SetMoney(Unsohi * UnsohiSeikyuFlg, false, false) %><% End If %> </td>
</tr>
<tr bgcolor="#DDDDDD">
<td align="center" colspan="2">消費税額</td>
<td align="right" bgcolor="#FFFFFF"><% = SetMoney(SyohizeiKingaku, false, false) %> </td>
</tr>
<tr bgcolor="#DDDDDD">
<td align="center" colspan="2">税込金額</td>
<td align="right" bgcolor="#FFFFFF"><% = SetMoney(ZeikomiKingaku, false, false) %> </td>
</tr>
<% End If %>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %>
<tr>
<td align="CENTER" valign="TOP" >
<table width="600" height="100" border="0" cellpadding="4" cellspacing="0" class="tx1416">
<tr><td style="border-bottom: 1px solid #000000" height="1" colspan="2"><font size="1"> </font></td></tr>
<tr>
<td valign="top" align="left">
備考
</td>
<td valign="top" align="right">
</td>
</tr>
</table>
</td>
</tr>
<% End If %>
</table>
<% If PrintFlg = 0 And BunsyoNaiyoCD = "" Then %>
</DIV>
<% End If %>
</td>
</tr>
</table>
</td>
<!-- 先方注文請書の場合は受信文書でも情報を表示する（仕入入庫時に買入負担運送単価を確認するため）※先方管理部売渡受付書も同様に（140701小野）-->
<% If (SenpoFlg = "0" Or BunsyoSyuruiCD = "KU" Or BunsyoSyuruiCD = "KW") And PrintFlg = 0 And BunsyoNaiyoCD <> "" Then %>
<td valign="top">
<table width="100%" height="200" border="0" cellpadding="3" cellspacing="0" bgcolor="#eeeeff" style="border:solid 1px #111111">
<tr>
<td valign="top">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td valign="top">
<table BORDER="0" CELLSPACING="0" CELLPADDING="0" class="tx1416" width="150">
<tr>
<td>この書類に関する情報</td>
</tr>
<tr>
<td> </td>
</tr>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<% If DbSenpoBunsyoNaiyoCD <> "" Then %>
<tr>
<td>先方書類番号：<% = DbSenpoBunsyoNaiyoCD %></td>
</tr>
<% End If %>
<tr>
<td>先方処理日：<% = SenpoSyoribi %></td>
</tr>
<tr>
<td height="10"></td>
</tr>
<% End If %>
<!-- 先方注文請書の場合は発信状態を表示しない ※先方管理部売渡受付書も同様に（140701小野）-->
<% If (SenpoFlg = "1" And BunsyoSyuruiCD = "KU") Or (SenpoFlg = "1" And BunsyoSyuruiCD = "KW") Then %>
<% ElseIf ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then %>
<tr>
<td>発信：<% = ConvFlagMeisyo(HasshinFlg, 5) %></td>
</tr>
<tr>
<td height="10"></td>
</tr>
<% End If %>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<tr>
<td>運送費：<% = SetMoney(Unsohi, false, true) %> 円</td>
</tr>
<tr>
<td height="10"></td>
</tr>
<% End If %>
<% If OldSyoruiFlg < 1 And BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<% For DenpyoSEQ = 1 To 5
If SyohinCD(DenpyoSEQ) <> "" Then %>
<tr>
<td><% = SyohinName(DenpyoSEQ) %></td>
</tr>
<tr>
<td> 運送単価：<% = UnsoTanka(DenpyoSEQ) %> 円</td>
</tr>
<tr>
<td height="5"></td>
</tr>
<% End If
Next %>
<% End If %>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<% End If %>
</tr>
</table>
<%
If PrintFlg = 1 Then
Response.Write(PrintFooter())
End if
%>
</td>
</tr>
</table>
<%
End Function
%>