<% ' '################################################ ' –¼Ì 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 %>  
<% = ShoruiMei %> 
ˆ—“úF <% = Kaiagebi %> 
‚¨–¼‘OF <% = KyakuName %> —l 
<% = Kaisyamei %> 
<% = Adr1 %> 
<% = Adr2 %> 
TELF<% = Tel %> 
FAXF<% = Fax %> 
“E—vF<% = Tekiyo %> 
<% If GB_ShohizeiMode = 1 Then %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %>
¤•iƒR[ƒh ¤•i–¼Ì ”@—Ê ’P@‰¿ ‹à@ŠzÅ—¦
<% = ShohinCD(0) %>  <% = ShohinMei(0) %>  <% = NumComma(Suryo(0), False) %>  <% = NumComma(JitubaiTanka(0), False) %>  <% = NumComma(Kingaku(0), False) %> <% If "" & TaxRate(0) <> "" Then %><% = NumComma(TaxRate(0), False) %>“<% End If %>
<% = ShohinCD(1) %>  <% = ShohinMei(1) %>  <% = NumComma(Suryo(1), False) %>  <% = NumComma(JitubaiTanka(1), False) %>  <% = NumComma(Kingaku(1), False) %> <% If "" & TaxRate(1) <> "" Then %><% = NumComma(TaxRate(1), False) %>“<% End If %>
<% = ShohinCD(2) %>  <% = ShohinMei(2) %>  <% = NumComma(Suryo(2), False) %>  <% = NumComma(JitubaiTanka(2), False) %>  <% = NumComma(Kingaku(2), False) %> <% If "" & TaxRate(2) <> "" Then %><% = NumComma(TaxRate(2), False) %>“<% End If %>
<% = ShohinCD(3) %>  <% = ShohinMei(3) %>  <% = NumComma(Suryo(3), False) %>  <% = NumComma(JitubaiTanka(3), False) %>  <% = NumComma(Kingaku(3), False) %> <% If "" & TaxRate(3) <> "" Then %><% = NumComma(TaxRate(3), False) %>“<% End If %>
<% = ShohinCD(4) %>  <% = ShohinMei(4) %>  <% = NumComma(Suryo(4), False) %>  <% = NumComma(JitubaiTanka(4), False) %>  <% = NumComma(Kingaku(4), False) %> <% If "" & TaxRate(4) <> "" Then %><% = NumComma(TaxRate(4), False) %>“<% End If %>
<% If GB_ShohizeiMode = 1 Then %> <% End If %>
‡Œv‹àŠz <% = NumComma(KaiageKingaku, False) %>
Á”ïÅŠ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 %>