%
'
'################################################
' –¼Ì F‚¨”ƒã•[‚Ì•\Ž¦
' 쬓ú F2007/2/4
' ì¬ŽÒ FMasayoshi Wada
' –Ú“I@ F‚¨”ƒã•[‚ð•\Ž¦‚·‚é
' ŠT—v F
' <<•\Ž¦>>
'################################################
'
'
%>
<%
Function KouriHanbai(EnshiCD,KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg)
'ƒ}ƒXƒ^‚Ì•W€Á”ïÅ—¦‚ðŽæ“¾
Dim StdTaxRate
Dim StdTaxRateUnso
StdTaxRate = GB_Shohizei
StdTaxRateUnso = GB_Shohizei
If GB_ShohizeiMode = 1 Then
Query = " SELECT * FROM TDAÁ”ïÅ—¦M WHERE ƒVƒXƒeƒ€CD = '" & GB_SystemCD & "' AND ‰‰KCD = '" & EnshuCD & "' AND (•W€ = '1' OR ‰^‘—”ï•W€ = '1') "
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("•W€") = "1" Then
StdTaxRate = Content.Fields("Á”ïÅ—¦")
End If
If "" & Content.Fields("‰^‘—”ï•W€") = "1" Then
StdTaxRateUnso = Content.Fields("Á”ïÅ—¦")
End If
Content.MoveNext
Loop
End If
Dim TmpCnt
Dim Syoribi, TorihikisakiCD, NonyuKijitsu
Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, ShiharaiHoho, HasshinFlg
'¤•iMƒe[ƒuƒ‹
Dim GokeiKingaku '‡Œv‹àŠz
Dim ShohizeiKingaku 'Á”ïÅ
Dim ZeikomiKingaku 'Åž‡Œv‹àŠz
Dim ShoruiMei
Dim Query
Dim Content
Dim Shimei
Dim ShohinGazoStr
Dim KaisyaCD1
Dim AdminMailFlag
Dim ShohinNyusyukkoSeigosei
AdminMailFlag = 0
ShohinNyusyukkoSeigosei = GetEnshuParam(EnshuCD, "¤•i“üoŒÉ®‡«—˜—p")
Dim RouteType
RouteType = Request("RouteType")
Dim PageType
PageType = Request("PageType")
' Dim BunsyoSyuruiCD
' BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
' Dim BunsyoNaiyoCD
' BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
' Dim SakuseiKaisyaCD
' SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
Dim Kaisyamei
Dim KaisyaRyakumei
Dim kaisyaKanamei
Dim ZipCode
Dim Adr1
Dim Adr2
Dim Tel
Dim Fax
Dim GyosyuCD
Dim Set_ShijyoCD
Dim jj,tmps
Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth
' For Debug
'Response.Write("GB_SystemCD:" & GB_SystemCD & "
")
'Response.Write("EnshuCD:" & EnshuCD & "
")
'Response.Write("KaisyaCD:" & KaisyaCD & "
")
'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "
")
'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "
")
'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
")
'Response.Write("RouteType:" & RouteType & "
")
'«ŽsêE¤•i•\Ž¦•‚ÌŽw’è‹y‚Ѥ•i–¼ÌE¤•i—ª–¼Ì‚ÌŽw’èiC³061031¬–ìj
SyohinMeisyo = "¤•i–¼Ì"
SyohinMeisyoListWidth = "width: 155;"
ShijyoListWidth = "width:85"
'ªŽsêE¤•i•\Ž¦•‚ÌŽw’è‹y‚Ѥ•i–¼ÌE¤•i—ª–¼Ì‚ÌŽw’èiC³061031¬–ìj
Query = "exec SPM‰ïŽÐŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Kaisyamei = Content.Fields("‰ïŽÐ–¼Ì")
KaisyaRyakumei = Content.Fields("‰ïŽÐ—ª–¼Ì")
kaisyaKanamei = Content.Fields("‰ïŽÐƒJƒi–¼Ì")
ZipCode = Content.Fields("—X•Ö”Ô†")
Adr1 = Content.Fields("ZŠ1")
Adr2 = Content.Fields("ZŠ2")
Tel = Content.Fields("TEL")
Fax = Content.Fields("FAX")
GyosyuCD = Content.Fields("‹ÆŽíCD")
Set_ShijyoCD = Content.Fields("ŽsêCD")
End If
'Šñ‘õ—˜—pƒtƒ‰ƒOŽæ“¾
Dim Kitakuriyou
Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Kitakuriyou = Content.Fields("Šñ‘õ‘qŒÉ—˜—p")
End If
' ¬”„”Ì”„ƒf[ƒ^“Ç‚Ýž‚Ý
Dim Query2
Dim Content2
Dim Query3
Dim Content3
' ¬”„”Ì”„ƒe[ƒuƒ‹ƒwƒbƒ_•”
Dim KyakuName '‹qŽ–¼
Dim Kaiagebi '”ƒã“ú
Dim Tekiyo '“E—v
Dim GakuseiBango 'Šw¶”Ô†
Dim GakuseiShimei 'Šw¶Ž–¼
Dim KaiageTensu '”ƒã“_”
Dim KaiageKingaku '”ƒã‹àŠz
Dim ShohiZei 'Á”ïÅ
Dim Soryo '‘——¿
Dim GokeiUriage '‡Œv”„ã
Dim KaimonohyoPrintF '”ƒ•¨•[ˆóüƒtƒ‰ƒO
Dim RyoshusyoPrintF '—ÌŽû‘ˆóüƒtƒ‰ƒO
Dim KoshinF '“üoŒÉXVƒtƒ‰ƒO
Dim SakujyoF '휃tƒ‰ƒO
Dim KitakuSokoriyo 'Šñ‘õ‘qŒÉ—˜—p
Dim KoushinDate 'XV“úŽž
' ¬”„”Ì”„ƒe[ƒuƒ‹–¾×•”
Dim ShohinCD(6) '¤•iCD
Dim ShohinMei(6) '¤•i–¼
Dim ShohinRyakumei(6) '¤•i—ªÌ
Dim HyojyunTanka(6) '•W€’P‰¿
Dim JitubaiTanka(6) 'ŽÀ”Ì”„’P‰¿
Dim ShiireTanka(6) 'Žd“ü’P‰¿
Dim Suryo(6) '”—Ê
Dim Kingaku(6) '‹àŠz
Dim TaxRate(5) 'Á”ïÅ—¦
ShoruiMei = "‚¨”ƒ‚¢ã‚°•["
'For Debug
'Response.Write("GB_SystemCD:" & GB_SystemCD & "
")
'Response.Write("EnshuCD:" & EnshuCD & "
")
'Response.Write("KaisyaCD:" & KaisyaCD & "
")
'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "
")
'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "
")
'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
")
'Response.Write("KyakuName:" & KyakuName & "
")
Query2 = "exec SPK¬”„”Ì”„Žæ“¾_‡Œv'" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "','" & BunsyoNaiyoCD & "'"
Set Content2 = OpenQuery(Query2)
Dim kk, GokeiSuryo, GokeiGaku, GokeiShohizei, ZeikomiGaku, GokeiSoryo
Do While Not(Content2.BOF Or Content2.EOF)
KyakuName = Content2.Fields("‹qŽ–¼") '‹qŽ–¼
Kaiagebi = SetTimeYYYYMMDD(Content2.Fields("”ƒã“ú")) '”ƒã“ú
Tekiyo = Content2.Fields("“E—v") '“E—v
GakuseiBango = Content2.Fields("Šw¶”Ô†") 'Šw¶”Ô†
GakuseiShimei = Content2.Fields("Šw¶Ž–¼") 'Šw¶Ž–¼iŒWˆój
KaiageTensu = Content2.Fields("”ƒã“_”") '”ƒã“_”
KaiageKingaku = Content2.Fields("”ƒã‹àŠz") '”ƒã‹àŠz
ShohiZei = Content2.Fields("Á”ïÅ") 'Á”ïÅ
Soryo = Content2.Fields("‘——¿") '‘——¿
GokeiUriage = Content2.Fields("‡Œv‹àŠz") '‡Œv‹àŠz
KaimonohyoPrintF = Content2.Fields("”ƒã•[ˆóüƒtƒ‰ƒO") '”ƒ‚¢•¨•[ˆóüƒtƒ‰ƒO
RyoshusyoPrintF = Content2.Fields("—ÌŽû‘ˆóüƒtƒ‰ƒO") '—ÌŽû‘ˆóüƒtƒ‰ƒO
KoshinF = Content2.Fields("“üoŒÉXVƒtƒ‰ƒO") '“üoŒÉXVƒtƒ‰ƒO
SakujyoF = Content2.Fields("휃tƒ‰ƒO") '휃tƒ‰ƒO
KitakuSokoriyo = Content2.Fields("Šñ‘õ‘qŒÉ—˜—p") 'Šñ‘õ‘qŒÉ—˜—p
KoushinDate = SetTimeYYYYMMDD(Content2.Fields("XV“úŽž")) 'XV“úŽž
Content2.MoveNext
Loop
Query3 = "exec SPK¬”„”Ì”„Žæ“¾_–¾× '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
kk = 0 'sƒV[ƒPƒ“ƒX
Set Content3 = OpenQuery(Query3)
Do While Not(Content3.BOF Or Content3.EOF)
ShohinCD(kk) = Content3.Fields("¤•iCD") '¤•iCD
ShohinMei(kk) = Content3.Fields("¤•i–¼") '¤•i–¼
ShohinRyakumei(kk) = Content3.Fields("¤•i—ªÌ") '¤•i—ªÌ
HyojyunTanka(kk) = Content3.Fields("•W€”„‰¿") '•W€”„‰¿
JitubaiTanka(kk) = Content3.Fields("ŽÀ”Ì”„’P‰¿") 'ŽÀ”Ì”„’P‰¿
ShiireTanka(kk) = Content3.Fields("Žd“ü’P‰¿") 'Žd“ü’P‰¿
Suryo(kk) = Content3.Fields("”—Ê") '”—Ê
Kingaku(kk) = Content3.Fields("‹àŠz") '‹àŠz
TaxRate(kk) = Content3.Fields("Á”ïÅ—¦") 'Á”ïÅ—¦
If "" & TaxRate(kk) = "" Or GB_ShohizeiMode <> 1 Then
TaxRate(kk) = StdTaxRate
End If
kk = kk + 1
ShohinCD(kk) = ""
Content3.MoveNext
Loop
'For Debug
'Response.Write("ShohiMei:" & ShohinMei(0) & "
")
%>
<%
If PrintFlg = 1 Then
Response.Write(PrintHeader(AutoFlg, ""))
End if
%>
|
|
“`•[”Ô†F<% = BunsyoNaiyoCD %> |
|
|
|
|
|
‚¨–¼‘OF <% = KyakuName %> |
—l |
|
|
<% = Kaisyamei %> |
<% = Adr1 %> |
<% = Adr2 %> |
TELF<% = Tel %> |
FAXF<% = Fax %> |
“E—vF<% = Tekiyo %> |
|
|
¤•iƒR[ƒh |
¤•i–¼Ì |
”@—Ê |
’P@‰¿ |
‹à@Šz |
<% If GB_ShohizeiMode = 1 Then %>
Å—¦ |
<% End If %>
<% = ShohinCD(0) %> |
<% = ShohinMei(0) %> |
<% = NumComma(Suryo(0), False) %> |
<% = NumComma(JitubaiTanka(0), False) %> |
<% = NumComma(Kingaku(0), False) %> |
<% If GB_ShohizeiMode = 1 Then %>
<% If "" & TaxRate(0) <> "" Then %><% = NumComma(TaxRate(0), False) %>“<% End If %> |
<% End If %>
<% = ShohinCD(1) %> |
<% = ShohinMei(1) %> |
<% = NumComma(Suryo(1), False) %> |
<% = NumComma(JitubaiTanka(1), False) %> |
<% = NumComma(Kingaku(1), False) %> |
<% If GB_ShohizeiMode = 1 Then %>
<% If "" & TaxRate(1) <> "" Then %><% = NumComma(TaxRate(1), False) %>“<% End If %> |
<% End If %>
<% = ShohinCD(2) %> |
<% = ShohinMei(2) %> |
<% = NumComma(Suryo(2), False) %> |
<% = NumComma(JitubaiTanka(2), False) %> |
<% = NumComma(Kingaku(2), False) %> |
<% If GB_ShohizeiMode = 1 Then %>
<% If "" & TaxRate(2) <> "" Then %><% = NumComma(TaxRate(2), False) %>“<% End If %> |
<% End If %>
<% = ShohinCD(3) %> |
<% = ShohinMei(3) %> |
<% = NumComma(Suryo(3), False) %> |
<% = NumComma(JitubaiTanka(3), False) %> |
<% = NumComma(Kingaku(3), False) %> |
<% If GB_ShohizeiMode = 1 Then %>
<% If "" & TaxRate(3) <> "" Then %><% = NumComma(TaxRate(3), False) %>“<% End If %> |
<% End If %>
<% = ShohinCD(4) %> |
<% = ShohinMei(4) %> |
<% = NumComma(Suryo(4), False) %> |
<% = NumComma(JitubaiTanka(4), False) %> |
<% = NumComma(Kingaku(4), False) %> |
<% If GB_ShohizeiMode = 1 Then %>
<% If "" & TaxRate(4) <> "" Then %><% = NumComma(TaxRate(4), False) %>“<% End If %> |
<% End If %>
|
|
‡Œv‹àŠz |
<% = NumComma(KaiageKingaku, False) %> |
<% If GB_ShohizeiMode = 1 Then %>
|
<% End If %>
Á”ïÅŠz |
<% = NumComma(ShohiZei, False) %> |
Åž‹àŠz |
<% = NumComma(GokeiUriage, False) %> |
|
|
|
|
<%
If PrintFlg = 1 Then
Response.Write(PrintFooter())
End if
%>
|
<%
If PrintFlg = 1 Then
Response.Write(PrintFooter())
End if
End Function
%>