<%
Function DenpyoShiireUriage(EnshuCD, KaisyaCD, SakuseiKaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, PrintFlg)
'マスタの標準消費税率を取得
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 Torihikibi, DenpyoTekiyo,TorihikisakiCD '伝票番号、取引日、伝票摘要、取引先CD
Dim DenpyoSyoriKubun,TujyoHenpinKubun,PageType '伝票処理区分、通常返品区分、ページタイプ
Dim SyohinCD(5) '商品コード
Dim SyohinName(5) '商品名称
Dim Kakaku(5) '標準価格
Dim Suryo(5) '数量
Dim Tanka(5) '単価
Dim Kingaku(5) '金額
Dim TaxRate(5) '消費税率
Dim GokeiKingaku '合計
Dim SyohizeiKingaku '消費税
Dim ZeikomiKingaku '税込み金額
Dim KarikataGokei, KashikataGokei '借方合計、貸方合計
'For TmpCnt = 1 To 5
'TaxRate(TmpCnt) = StdTaxRate
'Next
Dim Query
Dim Content
Dim Genkin, Toza
Dim Amend
Dim Shimei
Dim GakuseiShimei
Dim RouteType
Dim SakujyoFlg
Dim GakuseiBango
SakujyoFlg = 0
RouteType = Request("RouteType")
PageType = Request("PageType")
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 title
If DenpyoKubun = "D3" Then
title = "仕入伝票"
Else
title = "売上伝票"
End If
Dim SenColor
If PrintFlg > 0 Then
SenColor = "#000000"
Else
SenColor = "#5500FF"
End If
SenColor = "#5500FF"
If DenpyoNo <> "" Then
'/////// １．「伝票」ヘッダ部のデータを取得。
If DenpyoKubun = "D3" Then
Query = "exec SPK伝票_仕入伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
Else
Query = "exec SPK伝票_売上伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
End If
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
DenpyoTekiyo = Content.Fields("伝票摘要")
DenpyoSyoriKubun = Content.Fields("伝票処理区分")
TujyoHenpinKubun = Content.Fields("通常返品区分")
TorihikisakiCD = Content.Fields("取引先CD")
GakuseiShimei = Content.Fields("氏名")
GakuseiBango = Content.Fields("学生番号")
SakujyoFlg = Content.Fields("削除フラグ")
End IF
'/////// ２．「仕入明細」明細部のデータを取得。
If DenpyoKubun = "D3" Then
Query = "exec SPK伝票_仕入明細取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
Else
Query = "exec SPK伝票_売上明細取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
End If
Set Content = OpenQuery(Query)
GokeiKingaku = 0
SyohizeiKingaku = 0
If Not(Content.BOF Or Content.EOF) Then
Do While Not(Content.BOF Or Content.EOF)
Dim DenpyoSEQ
DenpyoSEQ = Content.Fields("仕入売上明細SEQ")
SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
SyohinName(DenpyoSEQ) = Content.Fields("商品名称")
Kakaku(DenpyoSEQ) = Content.Fields("標準販売単価")
If SyohinCD(DenpyoSEQ) = "ETCSHOHIN" Then
Kakaku(DenpyoSEQ) = null '「その他の商品」は標準販売単価無し
End If
Suryo(DenpyoSEQ) = Content.Fields("受注数量")
Tanka(DenpyoSEQ) = Content.Fields("受注単価")
Kingaku(DenpyoSEQ) = Content.Fields("受注単価") * Content.Fields("受注数量")
GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
TaxRate(DenpyoSEQ) = Content.Fields("消費税率")
If "" & TaxRate(DenpyoSEQ) = "" Or GB_ShohizeiMode <> 1 Then
TaxRate(DenpyoSEQ) = StdTaxRate
End If
'SyohizeiKingaku = Int(GokeiKingaku * TaxRate(DenpyoSEQ) / 100)
SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * TaxRate(DenpyoSEQ) / 100)
Content.MoveNext
Loop
End If
End If
SyohizeiKingaku = Fix(SyohizeiKingaku)
ZeikomiKingaku = GokeiKingaku + SyohizeiKingaku
Dim ShiireUriageSyohizei
Dim HyojunTankaHyoji
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
ShiireUriageSyohizei = "" & Content.Fields("仕入売上伝票消費税手動仕訳")
HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
End If
If ShiireUriageSyohizei = "1" Then
SyohizeiKingaku = 0
ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku
End If
%>
<style type="text/css">
table.ctable {
border:1 solid #<% = SenColor %>;
}
table.ctable td {
border:1 solid #<% = SenColor %>;
}
</style>
<% 'GB_ShohizeiMode = 0 %>
<%
If PrintFlg > 0 Then
'連続印刷用追加（070606小野）PrintFlg = 2の場合は改ページ
If PrintFlg = 2 Then
Response.Write(PageBreakBefore)
End if
End if
%>
<table width="640" height="400" border="0" cellpadding="0" cellspacing="5">
<tr>
<td align="center" valign="middle">
<%
If PrintFlg > 0 Then
Response.Write(PrintHeader(AutoFlg, ""))
End if
%>
<table width="<% If GB_ShohizeiMode = 1 Then %>700<% Else %>650<% End If %>" height="415" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border:solid 1px #111111">
<tr>
<td height="60">
<table width="<% If GB_ShohizeiMode = 1 Then %>674<% Else %>630<% End If %>" height="80" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="<% If GB_ShohizeiMode = 1 Then %>560<% Else %>510<% End If %>" align="right" valign="bottom">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="<% If GB_ShohizeiMode = 1 Then %>22<% Else %>18<% End If %>" valign="bottom"></td>
<td width="165">
<table width="220" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" class="tx2022" style="color:<% = SenColor %>"><% = Left(title,1) & space(1) & Mid(title, 2, 1) %> 伝 票<% If "" & SakujyoFlg = "1" Then Response.Write("<span class=""tx1214""> ※削除済み</span>") End If %></td>
</tr>
</table>
</td>
<td valign="bottom">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr class="tx1416">
<td width="72" height="20" align="right" style="color:<% = SenColor %>">伝票番号：</td>
<td height="20"><% = DenpyoNo %></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="15">
</td>
<td>
<table width="220" height="20" border="0" cellpadding="0" cellspacing="0">
<tr class="tx1416">
<td width="55" height="20" align="right" style="color:<% = SenColor %>">取引日：</td>
<td height="20"><% = Torihikibi %></td>
</tr>
</table>
</td>
<td>
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr class="tx1416">
<td width="72" height="20" align="right" style="color:<% = SenColor %>">摘要：</td>
<td height="20"><span style="width:200px; overflow:hidden;"><% = DenpyoTekiyo %></span></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="15">
</td>
<td>
<table width="220" height="20" border="0" cellpadding="0" cellspacing="0">
<tr class="tx1416">
<td width="55" height="20" align="right" style="color:<% = SenColor %>">取引先：</td>
<td height="20"><% = ConvKaisyaMeisyo(TorihikisakiCD) %></td>
</tr>
</table>
</td>
<td>
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr class="tx1416">
<td width="72" height="20" align="right" style="color:<% = SenColor %>">伝票区分：</td>
<td height="20"><% If TujyoHenpinKubun = "N" Then %>通常<% ElseIf DenpyoNo <> "" Then %>返品<% End If %></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td align="right" valign="bottom">
<table width="120" height="40" class="ctable" border="1" cellpadding="0" cellspacing="0" bordercolor="<% = SenColor %>" STYLE="border-collapse: collapse">
<tr class="tx1214" style="color:<% = SenColor %>">
<td width="40" height="14" align="center"><% = LabelSoumu %></td>
<td width="40" height="14" align="center"><% = LabelTanto %></td>
<td width="40" height="14" align="center"><% = LabelKakari %></td>
</tr>
<tr class="tx1214">
<td width="40" height="40" align="center"> </td>
<td width="40" height="40" align="center"> </td>
<td width="40" height="40" align="center"><font color="FF0000"><% = ConvShimeiRyakuMeisyo(GakuseiBango) %></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="265" align="center" valign="top">
<table width="<% If GB_ShohizeiMode = 1 Then %>650<% Else %>612<% End If %>" height="300" border="1" class="ctable" cellpadding="0" cellspacing="0" bordercolor="<% = SenColor %>" style="border-collapse: collapse">
<tr>
<td valign="TOP">
<table width="100%" height="26" class="ctable" border="1" cellpadding="0" cellspacing="0" frame="below" style="border-collapse: collapse" bordercolor="<% = SenColor %>" >
<tr class="tx1416" style="color:<% = SenColor %>">
<td align="center">商品名称</td>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="center" width="91"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準価格") End If %></td>
<% End If %>
<td align="center" width="91">数 量</td>
<td align="center" width="91">単 価</td>
<td align="center" width="91">金 額</td>
<% If GB_ShohizeiMode = 1 Then %>
<td align="center" width="48">税率</td>
<% End If %>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" height="190" class="ctable" border="1" cellpadding="0" cellspacing="0" bordercolor="<% = SenColor %>" frame="below" style="border-collapse: collapse">
<tr class="tx1416">
<% If GB_ShohizeiMode = 1 Then %>
<td align="center"><% = AscLeft(SyohinName(1),20) %> </td> <!-- 商品名称を20byteで切捨て（191016小野）-->
<% Else %>
<td align="center"><% = AscLeft(SyohinName(1),26) %> </td> <!-- 商品名称を26byteで切捨て（061101小野）-->
<% End If %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td width="91" align="right"><% = SetMoney(Kakaku(1), false, true) %> </td>
<% End If %>
<td width="91" align="right"><% = SetMoney(Suryo(1), false, true) %> </td>
<td width="91" align="right"><% = SetMoney(Tanka(1), false, true) %> </td>
<td width="91" align="right"><% = SetMoney(Kingaku(1), false, true) %> </td>
<% If GB_ShohizeiMode = 1 Then %>
<td width="48" align="right"><% If "" & TaxRate(1) <> "" Then %><% = TaxRate(1) %>％ <% End If %></td>
<% End If %>
</tr>
<tr class="tx1416">
<% If GB_ShohizeiMode = 1 Then %>
<td align="center"><% = AscLeft(SyohinName(2),20) %> </td> <!-- 商品名称を20byteで切捨て（191016小野）-->
<% Else %>
<td align="center"><% = AscLeft(SyohinName(2),26) %> </td> <!-- 商品名称を26byteで切捨て（061101小野）-->
<% End If %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="right"><% = SetMoney(Kakaku(2), false, true) %> </td>
<% End If %>
<td align="right"><% = SetMoney(Suryo(2), false, true) %> </td>
<td align="right"><% = SetMoney(Tanka(2), false, true) %> </td>
<td align="right"><% = SetMoney(Kingaku(2), false, true) %> </td>
<% If GB_ShohizeiMode = 1 Then %>
<td align="right"><% If "" & TaxRate(2) <> "" Then %><% = TaxRate(2) %>％ <% End If %></td>
<% End If %>
</tr>
<tr class="tx1416">
<% If GB_ShohizeiMode = 1 Then %>
<td align="center"><% = AscLeft(SyohinName(3),20) %> </td> <!-- 商品名称を20byteで切捨て（191016小野）-->
<% Else %>
<td align="center"><% = AscLeft(SyohinName(3),26) %> </td> <!-- 商品名称を26byteで切捨て（061101小野）-->
<% End If %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="right"><% = SetMoney(Kakaku(3), false, true) %> </td>
<% End If %>
<td align="right"><% = SetMoney(Suryo(3), false, true) %> </td>
<td align="right"><% = SetMoney(Tanka(3), false, true) %> </td>
<td align="right"><% = SetMoney(Kingaku(3), false, true) %> </td>
<% If GB_ShohizeiMode = 1 Then %>
<td align="right"><% If "" & TaxRate(3) <> "" Then %><% = TaxRate(3) %>％ <% End If %></td>
<% End If %>
</tr>
<tr class="tx1416">
<% If GB_ShohizeiMode = 1 Then %>
<td align="center"><% = AscLeft(SyohinName(4),20) %> </td> <!-- 商品名称を20byteで切捨て（191016小野）-->
<% Else %>
<td align="center"><% = AscLeft(SyohinName(4),26) %> </td> <!-- 商品名称を26byteで切捨て（061101小野）-->
<% End If %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="right"><% = SetMoney(Kakaku(4), false, true) %> </td>
<% End If %>
<td align="right"><% = SetMoney(Suryo(4), false, true) %> </td>
<td align="right"><% = SetMoney(Tanka(4), false, true) %> </td>
<td align="right"><% = SetMoney(Kingaku(4), false, true) %> </td>
<% If GB_ShohizeiMode = 1 Then %>
<td align="right"><% If "" & TaxRate(4) <> "" Then %><% = TaxRate(4) %>％ <% End If %></td>
<% End If %>
</tr>
<tr class="tx1416">
<% If GB_ShohizeiMode = 1 Then %>
<td align="center"><% = AscLeft(SyohinName(5),20) %> </td> <!-- 商品名称を20byteで切捨て（191016小野）-->
<% Else %>
<td align="center"><% = AscLeft(SyohinName(5),26) %> </td> <!-- 商品名称を26byteで切捨て（061101小野）-->
<% End If %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<td align="right"><% = SetMoney(Kakaku(5), false, true) %> </td>
<% End If %>
<td align="right"><% = SetMoney(Suryo(5), false, true) %> </td>
<td align="right"><% = SetMoney(Tanka(5), false, true) %> </td>
<td align="right"><% = SetMoney(Kingaku(5), false, true) %> </td>
<% If GB_ShohizeiMode = 1 Then %>
<td align="right"><% If "" & TaxRate(5) <> "" Then %><% = TaxRate(5) %>％ <% End If %></td>
<% End If %>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" height="84" class="ctable" border="1" cellpadding="0" cellspacing="0" frame="void" style="border-collapse: collapse" bordercolor="<% = SenColor %>" >
<tr class="tx1416">
<td align="center" rowspan="3"> </td>
<td align="center" width="183" style="color:<% = SenColor %>">合計金額</td>
<td align="right" width="91"><% = SetMoney(GokeiKingaku, false, true) %> </td>
<% If GB_ShohizeiMode = 1 Then %>
<td align="center" width="48" rowspan="3"> </td>
<% End If %>
</tr>
<% 'ShiireUriageSyohizei = "1" %>
<% If ShiireUriageSyohizei <> "1" Then %>
<tr class="tx1416">
<td align="center" style="color:<% = SenColor %>">消費税額</td>
<td align="right"><% = SetMoney(SyohizeiKingaku, false, true) %> </td>
</tr>
<tr class="tx1416">
<td align="center" style="color:<% = SenColor %>">税込金額</td>
<td align="right"><% = SetMoney(ZeikomiKingaku, false, true) %> </td>
</tr>
<% End If %>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
If PrintFlg > 0 Then
Response.Write(PrintFooter())
'連続印刷用追加（070606小野）
Response.Write("<div><img src=""/" & HomeAlias & "/images/spacer.gif"" width=""1"" height=""40""></div>" & vbCrLf)
End if
%>
</td>
</tr>
</table>
<%
End Function
%>